proposition: Lemma natequiv_pi1bouquet_rec (S : Type) : NatEquiv (opyon (Pi 1 (Bouquet S))) (opyon S o group_type).
proof: Proof. nrefine (natequiv_compose _ _). 1: refine (natequiv_prewhisker (natequiv_pointify_r S) ptype_group). nrefine (natequiv_compose _ _). 1: rapply (natequiv_postwhisker _ (natequiv_inverse natequiv_g_loops_bg)). nrefine (natequiv_compose _ _). 1: refine (natequiv_prewhisker (natequiv_loop_susp_adjoint_r (pointify S)) B). rapply natequiv_bg_pi1_adjoint. Defined.
imports: Basics Types Pointed WildCat Algebra.Groups Modalities.ReflectiveSubuniverse Truncations.Core Homotopy.Suspension Homotopy.ClassifyingSpace Homotopy.HomotopyGroup