{A : pType} {P : pFam A} {f g h : pForall A P} (p : f = g) (q : g = h) : phomotopy_path (p @ q) ==* phomotopy_path p @* phomotopy_path q. Proof. induction p. induction q. symmetry. apply phomotopy_compose_p1. Defined.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.