fact: Definition semantic_judgement A1 A2 c1 c2 w := proj1_sig (θ ⟨A1,A2⟩) ⟨c1,c2⟩ ≤ w.
imports: Coq(ssreflect ssrfun ssrbool) Coq(Relation_Definitions Morphisms) Mon(SPropBase SPropMonadicStructures) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples)