proposition: Lemma is_bifunctor_tensorfrombinprod_data : is_bifunctor tensorfrombinprod_data.
proof: Proof. repeat split; red; cbn. - intros b c. apply pathsinv0, BinProduct_endo_is_identity. + now rewrite BinProductOfArrowsPr1, id_right. + now rewrite BinProductOfArrowsPr2, id_right. - intros b c. apply pathsinv0, BinProduct_endo_is_identity. + now rewrite BinProductOfArrowsPr1, id_right. + now rewrite BinProductOfArrowsPr2, id_right. - intros b c1 c2 c3 g1 g2. now rewrite BinProductOfArrows_comp, id_right. - intros b1 b2 b3 c f1 f2. now rewrite BinProductOfArrows_comp, id_right. - intros b1 b2 c1 c2 f g. unfold functoronmorphisms1, functoronmorphisms2. unfold leftwhiskering_on_morphisms, rightwhiskering_on_morphisms. cbn. do 2 rewrite BinProductOfArrows_comp. do 2 rewrite id_right. do 2 rewrite id_left. apply idpath. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.exponentials UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Structure.Cartesian UniMath.CategoryTheory.Monoidal.Structure.Symmetric UniMath.CategoryTheory.Monoidal.Structure.Closed UniMath.CategoryTheory.Limits.BinProducts UniMath.CategoryTheory.Limits.Terminal UniMath.CategoryTheory.Categories.HSET.Core UniMath.CategoryTheory.Categories.HSET.Limits UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Adjunctions.Core