Definition pr1subring (X : ring) : @subring X → hsubtype X := @pr1 _ (λ A : hsubtype X, issubring A).
Require Import UniMath.Algebra.Groups. Require Import UniMath.MoreFoundations.Sets. Require Import UniMath.MoreFoundations.Orders.