phomotopy_ind' `{H0 : Funext} {A : pType} {P : pFam A} {k : pForall A P} (Q : forall (k' : pForall A P), (k ==* k') -> (k = k') -> Type) (q : Q k (reflexivity k) 1 % path) (k' : pForall A P) (H : k ==* k') (p : k = k') (r : path_pforall H = p) : Q k' H p. Proof. induction r. revert k' H. rapply phomotopy_ind. exact (transport (Q _ (reflexivity _)) path_pforall_1^ q). Defined.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.