fact: Definition monoidincltomonoidfun (X Y : monoid) : monoidmono X Y -> monoidfun X Y := λ f, monoidfunconstr (pr2 f).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders