fact: Definition abmonoid_univalence_weq1 : abmonoid ≃ abmonoid' := weqtotal2asstol (λ X : setwithbinop, ismonoidop (@op X)) (fun y : (∑ X : setwithbinop, ismonoidop op) => iscomm (@op (pr1 y))).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders