fact: Definition subgroup_product {G : Group} (H K : Subgroup G) : Subgroup G := subgroup_generated (fun x => ((H x) + (K x))%type).
imports: Basics Types HFiber WildCat.Core Truncations.Core Algebra.Groups.Group TruncType