fact: Definition abmonoidtomonoid : abmonoid -> monoid := λ X : _, make_monoid (pr1 X) (pr1 (pr2 X)).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders