fact: Definition WPropDiscr : ord_relativeMonad chDiscr := relativeMonad_precomposition choice_incl (ordmonad_to_relmon WProp).
imports: mathcomp(all_ssreflect all_algebra boolp distr reals realsum) Mon(SpecificationMonads SPropBase SPropMonadicStructures) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(ChoiceAsOrd SubDistr Couplings Axioms)