fact: Definition psusp_pinch_beta_merid {X : pType} (x : X) : ap (psusp_pinch X) (merid x) = ap wedge_inl (loop_susp_unit X x) @ wglue @ ap wedge_inr (loop_susp_unit X x) @ wglue^.
imports: Basics Types Pointed.Core Pointed.pSusp Colimits.Pushout WildCat Homotopy.Suspension