fact: Definition trivialChi : natIso choice_incl (ord_functor_comp choice_incl (ord_functor_id TypeCat)) := natIso_sym( ord_functor_unit_right choice_incl ).
imports: Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Mon(SPropBase) mathcomp(all_ssreflect) Crypt(FreeProbProg ChoiceAsOrd)