fact: Definition issubring {X : ring} (A : hsubtype X) : UU := dirprod (@issubgr X A) (@issubmonoid (ringmultmonoid X) A).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids