fact: Definition invChi_CodomainStateAdj0 : forall A : prod_cat (oppo (prod_cat ord_choiceType ord_choiceType)) OrdCat, OrdCat ⦅ rightHom J R A; leftHom (ord_functor_comp Lflat J) A ⦆.
imports: Coq(Morphisms) mathcomp(all_algebra all_ssreflect boolp) Mon(SPropBase Base) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(OrderEnrichedRelativeAdjunctions FreeProbProg ChoiceAsOrd Couplings Theta_exCP SubDistr)