fact: Definition dpath_path_lFFr {A B : Type} {f : A -> B} {g : B -> A} {x1 x2 : A} (p : x1 = x2) (q : x1 = g (f x1)) (r : x2 = g (f x2)) : q @ ap g (ap f p) = p @ r <~> transport (fun x => x = g (f x)) p q = r.
imports: Basics.Overture Basics.Equivalences Basics.PathGroupoids Basics.Tactics