{X} {a b c : X} {u v w : a = b} {x y : b = c} (p : x = y) (q : u = v) (r : v = w) : (wlrnat p q [I] wlrnat p r) @ whiskerR (whiskerR_pp _ q r)^ _ = whiskerL _ (whiskerR_pp _ q r)^ @ wlrnat p (q @ r). Proof. by destruct p, q, r. Defined.
From HoTT Require Import Basics Types.