`{Univalence} : NatEquiv ptype_group (loops o B). Proof. snrapply Build_NatEquiv. 1: intros G; rapply pequiv_g_loops_bg. snrapply Build_Is1Natural. intros X Y f. symmetry. apply pbloop_natural. Defined.
Require Import Basics Types. Require Import Pointed WildCat. Require Import Cubical.DPath Cubical.PathSquare Cubical.DPathSquare. Require Import Algebra.AbGroups. Require Import Homotopy.HSpace.Core. Require Import TruncType. Require Import Truncations.Core Truncations.Connectedness. Require Import Homotopy.HomotopyGroup. Require Import Homotopy.WhiteheadsPrinciple. Module Import ClassifyingSpaceNotation.