{A B : Type} (f : A -> B) {x y : A} {p q : x = y} (r : p = q) : apD02 f r = (apD_const f p) @ (transport2_const r (f x) @@ ap02 f r) @ (concat_p_pp _ _ _)^ @ (whiskerL (transport2 _ r (f x)) (apD_const f q)^) := match r with idpath => match p with idpath => 1 end end.
Require Import Basics.Overture Basics.Tactics.