fact: Record MonotonicMonadMorphism (M W : OrderedMonad) : Type := mkMonMorphism { monmon_morph :> MonadMorphism M W ; monmon_monotonic : forall A, Proper (@omon_rel M A ==> @omon_rel W A) (monmon_morph A) }.
imports: Coq(ssreflect ssrfun FunctionalExtensionality) Mon(SPropBase) Coq(Relation_Definitions Morphisms)