fact: Definition transport_paths2 {A : Type} {x y : A} (p : x = y) (q : idpath x = idpath x) : transport (fun a => idpath a = idpath a) p q = (concat_Vp p)^ @ whiskerL p^ ((concat_1p p)^ @ whiskerR q p @ concat_1p p) @ concat_Vp p.
imports: Basics.Overture Basics.Equivalences Basics.PathGroupoids Basics.Tactics