fact: Definition equiv_dp_paths_FlFr {A B} {f g : A -> B} {x1 x2 : A} (p : x1 = x2) (q : f x1 = g x1) r : ((ap f p)^ @ q) @ ap g p = r <~> DPath (fun x : A => f x = g x) p q r.
imports: Basics Types.Paths Types.Sigma Types.Forall