fact: Definition gr_of_monoid (X : monoid) (H : invstruct (@op X) (pr2 X)) : gr := make_gr X (make_isgrop (pr2 X) H).
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids