fact: Definition loop_susp_unit (X : pType) : X ->* loops (psusp X) := Build_pMap X (loops (psusp X)) (fun x => merid x @ (merid (point X))^) (concat_pV _).
imports: Basics Types Pointed.Core Pointed.Loops Pointed.pTrunc Pointed.pEquiv Homotopy.Suspension Homotopy.Freudenthal Truncations WildCat