fact: Definition ChiKleisli0 : forall A : prod_cat (oppo I) (relKleisli M), OrdCat ⦅ leftHom KleisliLeftAdjoint A; rightHom J KleisliRightAdjoint A ⦆.
imports: Coq(Relation_Definitions Morphisms) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Mon(SPropBase) mathcomp(all_ssreflect boolp)