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