fact: Definition path_universe_compose_uncurried {A B C : Type} (f : A <~> B) (g : B <~> C) : path_universe_uncurried (equiv_compose g f) = path_universe_uncurried f @ path_universe_uncurried g.
imports: HoTT.Basics Types.Sigma Types.Forall Types.Arrow Types.Paths Types.Equiv Types.Bool Types.Prod