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