fact: Definition θ : forall A : prod_cat ord_choiceType ord_choiceType, OrdCat ⦅ Jprod (SDistr_squ A); WRelProp A ⦆.
imports: mathcomp(all_ssreflect all_algebra boolp distr reals realsum) Mon(SpecificationMonads SPropBase SPropMonadicStructures) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(ChoiceAsOrd SubDistr Couplings Axioms)