prism' {P : Type} {a b c : P} {ab : a = b} {ac : a = c} {bc : b = c} (abc : ab @ bc = ac) {ab' : a = b} {ac' : a = c} {bc' : b = c} (abc' : ab' @ bc' = ac') (k12 : ab = ab') (k13 : ac = ac') (k23 : bc = bc') := abc @ k13 = (k12 @@ k23) @ abc'.
Require Import Basics Types.Paths WildCat Join.Core HoTT.Tactics.