fact: Definition subgr (X : gr) : UU := total2 (λ A : hsubtype X, issubgr A).
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids