fact: Definition is_preorder_morph (f : A -> B) := Proper (rA ==> rB) f.
imports: Coq(Relation_Definitions Morphisms) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Mon(SPropBase) mathcomp(all_ssreflect boolp)