fact: Definition monoidisotomonoidmono (X Y : monoid) : monoidiso X Y -> monoidmono X Y := λ f, make_monoidmono (weqtoincl (pr1 f)) (pr2 f).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders