(A : Type) (P : A -> Type) (P0 : forall (a0 a1 : A) (p : a0 = a1) (b0 : P a0) (b1 : P a1), DPath P p b0 b1 -> Type) : (forall (x : A) (y : P x), P0 x x 1%path y y 1) -> forall (a0 a1 : A) (p : a0 = a1) (b0 : P a0) (b1 : P a1) (d : DPath P p b0 b1), P0 a0 a1 p b0 b1 d. Proof. intros X a0 a1 [] b0 b1 []; apply X. Defined.
Require Import Basics. Require Import Types.Paths Types.Sigma Types.Forall.