fact: Definition BinaryTrivialChi : natIso ( prod_functor choice_incl choice_incl ) (ord_functor_comp (prod_functor choice_incl choice_incl) (ord_functor_id (prod_cat TypeCat TypeCat))).
imports: Coq(Relation_Definitions) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Mon(SPropBase) mathcomp(all_ssreflect ) Crypt(Axioms OrderEnrichedRelativeAdjunctions LaxFunctorsAndTransf LaxMorphismOfRelAdjunctions TransformingLaxMorph OrderEnrichedRelativeAdjunctionsExamples ThetaDex SubDistr Theta_exCP ChoiceAsOrd FreeProbProg UniversalFreeMap RelativeMonadMorph_prod LaxComp choice_type)