{P : Type} {a b c : P} {ab : a = b} {ac : a = c} {bc : b = c} (abc : ab @ bc = ac) {a' b' c' : P} {ab' : a' = b'} {ac' : a' = c'} {bc' : b' = c'} (abc' : ab' @ bc' = ac') {k1 : a = a'} {k2 : b = b'} {k3 : c = c'} (k12 : ab @ k2 = k1 @ ab') (k13 : ac @ k3 = k1 @ ac') (k23 : bc @ k3 = k2 @ bc') := concat_p_pp _ _ _ @ whiskerR abc k3 @ k13 = whiskerL ab k23 @ concat_p_pp _ _ _ @ whiskerR k12 bc' @ concat_pp_p _ _ _ @ whiskerL k1 abc'.
Require Import Basics Types.Paths WildCat Join.Core HoTT.Tactics.