fact: Definition unarySpecPair (W1 W2 : unarySpecMonad) : ord_relativeMonad discr2 := product_rmon W1 W2.
imports: Coq(ssreflect ssrfun ssrbool) Coq(FunctionalExtensionality) Coq(Relation_Definitions Morphisms RelationPairs) Mon(SPropBase SPropMonadicStructures) Relational(OrderEnrichedCategory Rel)