fact: Definition normalsubgrtosubgr (X : gr) : normalsubgr X -> subgr X := pr1.
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids