fact: Definition make_abgr (X : setwithbinop) (is : isabgrop (@op X)) : abgr := tpair (λ X : setwithbinop, isabgrop (@op X)) X is.
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids