fact: Definition semantic_judgement (A1 A2 : ord_choiceType) {S1 S2 : choiceType} (c1 : FrStP S1 A1) (c2 : FrStP S2 A2) (w : Base.dfst (WrelSt ⟨ A1, A2 ⟩)) : Prop := (θ ⟨A1,A2⟩)∙1 ⟨c1,c2⟩ ≤ w.
imports: Coq(RelationClasses Morphisms Utf8) Mon(SPropMonadicStructures SpecificationMonads MonadExamples SPropBase FiniteProbabilities) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples Commutativity GenericRulesSimple) mathcomp(all_ssreflect all_algebra reals distr realsum finmap.set finmap.finmap xfinmap) Crypt(Axioms ChoiceAsOrd SubDistr Couplings Theta_dens Theta_exCP LaxComp FreeProbProg RelativeMonadMorph_prod StateTransformingLaxMorph choice_type)