fact: Definition isgrcarrier {X : gr} (A : subgr X) : isgrop (@op A) := tpair _ (ismonoidcarrier A) (tpair _ (λ a : A, make_carrier _ (grinv X (pr1 a)) (pr2 (pr2 A) (pr1 a) (pr2 a))) (isinvoncarrier A)).
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids