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