Definition monoidisotomonoidmono (X Y : monoid) : monoidiso X Y → monoidmono X Y := λ f, make_monoidmono (weqtoincl (pr1 f)) (pr2 f).
Require Import UniMath.MoreFoundations.Subtypes. Require Import UniMath.MoreFoundations.Sets.