fact: Definition submoduleinv (x : M) : A x -> A (grinv _ x) := λ ax, (pr2 (pr1 (pr2 A)) x ax).
imports: UniMath.MoreFoundations.Subtypes UniMath.Algebra.RigsAndRings UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.Algebra.Modules.Core