fact: Definition bind_fromLeftAdj : forall A B : I, C ⦅ J A; R (L B) ⦆ -> C ⦅ R (L A); R (L B) ⦆.
imports: Coq(Relation_Definitions Morphisms) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Mon(SPropBase) mathcomp(all_ssreflect boolp)