proposition: Lemma natequiv_loop_susp_adjoint_r `{Funext} (A : pType) : NatEquiv (opyon (psusp A)) (opyon A o loops).
proof: Proof. rapply Build_NatEquiv. Defined.
imports: Basics Types Pointed.Core Pointed.Loops Pointed.pTrunc Pointed.pEquiv Homotopy.Suspension Homotopy.Freudenthal Truncations WildCat