fact: Definition equiv_functor_prod_l {A B B' : Type} (g : B <~> B') : A * B <~> A * B' := 1 *E g.
imports: Basics.Overture Basics.Equivalences Basics.PathGroupoids Basics.Tactics Basics.Trunc Basics.Decidable Types.Empty