fact: Definition subabgr_incl {X : abgr} (A : subabgr X) : monoidfun A X := submonoid_incl A.
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids