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