fact: Definition v_inv : forall C : (prod_cat ord_choiceType ord_choiceType), OrdCat ⦅ (ord_functor_comp (prod_functor choice_incl choice_incl) Jprod) C; (ord_functor_comp (F_choice_prod) chDiscr) C ⦆.
imports: mathcomp(all_ssreflect all_algebra boolp distr reals realsum) Mon(SpecificationMonads SPropBase SPropMonadicStructures) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(ChoiceAsOrd SubDistr Couplings Axioms)