proposition: Lemma leftwhiskering_functor_pre (F : bifunctor_data) (bli : bifunctor_leftidax F) (blc : bifunctor_leftcompax F) (a : A): functor B C.
proof: Proof. use make_functor. - use tpair. + intro b. exact (a ⊗_{F} b). + intros b1 b2 g. exact (a ⊗^{F}_{l} g). - use tpair. + intros b. exact (bli a b). + intros b1 b2 b3 g2 g3. cbn. exact (blc a b1 b2 b3 g2 g3). Defined.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Limits.BinCoproducts UniMath.CategoryTheory.Limits.Coproducts UniMath.CategoryTheory.ProductCategory