{G : Group} (H : G -> Type) : _ <~> IsSubgroup H := ltac:(issig). Global Instance ishprop_issubgroup `{F : Funext} {G : Group} {H : G -> Type} : IsHProp (IsSubgroup H). Proof. exact (istrunc_equiv_istrunc _ ( H)). Defined.
Require Import Basics Types HFiber WildCat.Core. Require Import Truncations.Core. Require Import Algebra.Groups.Group TruncType.