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