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