fact: Definition semantic_judgement (A1 A2 : ord_choiceType) (c1 : MFreePr A1) (c2 : MFreePr A2) w : Prop := (θdex ⟨A1,A2⟩) ∙1 ⟨c1,c2⟩ ≤ w.
imports: Coq(RelationClasses Morphisms Utf8) Mon(FiniteProbabilities SPropMonadicStructures SpecificationMonads MonadExamples SPropBase) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples Commutativity GenericRulesSimple) mathcomp(all_ssreflect all_algebra reals distr realsum) Crypt(Axioms ChoiceAsOrd SubDistr Couplings Theta_dens Theta_exCP LaxComp FreeProbProg RelativeMonadMorph_prod)