{A B : Type} (f : A -> B) {feq : IsEquiv f} (z : A) : ap (transport idmap (path_universe f)^) (transport_path_universe f z) @ transport_path_universe_V f (f z) @ eissect f z = transport_Vp idmap (path_universe f) z := transport_path_universe_Vp_uncurried (Build_Equiv A B f feq) z.
Require Import HoTT.Basics. Require Import Types.Sigma Types.Forall Types.Arrow Types.Paths Types.Equiv Types.Bool Types.Prod.