fact: Record OrderedMonadUnder (M:OrderedMonad) := mkMonadUnder { mu_carrier :> OrderedMonad ; mu_lift : MonotonicMonadMorphism M mu_carrier }.
imports: Coq(ssreflect ssrfun FunctionalExtensionality) Mon(SPropBase) Coq(Relation_Definitions Morphisms)