fact: Definition equiv_path_path_universe_uncurried {A B : Type} (f : A <~> B) : equiv_path A B (path_universe_uncurried f) = f := eisretr (equiv_path A B) f.
imports: HoTT.Basics Types.Sigma Types.Forall Types.Arrow Types.Paths Types.Equiv Types.Bool Types.Prod