{A: Type} {P : A -> Type} {a0 a1 a2 : A} {p : a0 = a1} {q : a1 = a2} {b0 : P a0} {b1 : P a1} {b2 : P a2} (r : DPath P p b0 b1) {s s' : DPath P q b1 b2} (h : s = s') : r @Dp s = r @Dp s' := dp_concat2 1 h.
Require Import Basics. Require Import Types.Paths Types.Sigma Types.Forall.