fact: Definition chDiscr : ord_functor ord_choiceType OrdCat := ord_functor_comp (choice_incl) (discr).
imports: Coq(Relation_Definitions Morphisms) mathcomp(all_ssreflect all_algebra distr reals realsum) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(ChoiceAsOrd Axioms)