Definition submoduletosubabgr {R : ring} {M : module R} : submodule M -> @subabgr M := λ A : _, make_subgr (pr1 A) (pr1 (pr2 A)).
Require Import UniMath.MoreFoundations.Subtypes. Require Import UniMath.Algebra.RigsAndRings. Require Import UniMath.Algebra.Monoids. Require Import UniMath.Algebra.Groups. Require Import UniMath.Algebra.Modules.Core.