fact: Definition ap_prod_r_path_universe A {B C} (f : B <~> C) : equiv_path (B * A) (C * A) (ap (fun Z => Z * A) (path_universe f)) = equiv_functor_prod_r f.
imports: HoTT.Basics Types.Sigma Types.Forall Types.Arrow Types.Paths Types.Equiv Types.Bool Types.Prod