fact: Definition semantic_judgement A1 A2 c1 c2 w := (θ_morph ⟨A1,A2⟩) ∙1 ⟨c1,c2⟩ ≤ w.
imports: mathcomp(all_ssreflect all_algebra boolp distr reals realsum) Mon(SpecificationMonads SPropBase SPropMonadicStructures) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(ChoiceAsOrd SubDistr Couplings Axioms)