fact: Definition abmonoid : UU := total2 (λ X : setwithbinop, isabmonoidop (@op X)).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders