fact: Definition addsubgr {X : ring} : subring X -> @subgr X := λ A : _, @make_subgr X (pr1 A) (pr1 (pr2 A)).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids