fact: Definition SDistr_unit : forall (A:ord_choiceType), TypeCat ⦅ choice_incl A ; SDistr_carrier A ⦆.
imports: Coq(Relation_Definitions Morphisms) mathcomp(all_ssreflect all_algebra distr reals realsum) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(ChoiceAsOrd Axioms)