fact: Definition issubgr {X : gr} (A : hsubtype X) : UU := dirprod (issubmonoid A) (∏ x : X, A x -> A (grinv X x)).
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids