fact: Definition pr1subring (X : ring) : @subring X -> hsubtype X := @pr1 _ (λ A : hsubtype X, issubring A).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids