{G : Group} (X : G -> Type) : Subgroup G. Proof. refine (Build_Subgroup' (merely o subgroup_generated_type X) (tr sgt_unit) _). intros x y p q; strip_truncations. exact (tr (sgt_op p q)). Defined.
Require Import Basics Types HFiber WildCat.Core. Require Import Truncations.Core. Require Import Algebra.Groups.Group TruncType.