Definition pr1subrig (X : rig) : @subrig X → hsubtype X := @pr1 _ (λ A : hsubtype X, issubrig A).
Require Import UniMath.Algebra.Groups. Require Import UniMath.MoreFoundations.Sets. Require Import UniMath.MoreFoundations.Orders.