fact: Definition phomotopy_compose_pV {A : pType} {P : pFam A} {f g : pForall A P} (p : f ==* g) : p @* p ^* ==* phomotopy_reflexive f.
imports: Basics Types PathAny WildCat Truncations.Core ReflectiveSubuniverse Extensions