{A B : Type} (p : A = B) : path_universe (equiv_path A B p) = p := eissect (equiv_path A B) p.
Require Import HoTT.Basics. Require Import Types.Sigma Types.Forall Types.Arrow Types.Paths Types.Equiv Types.Bool Types.Prod.