proposition: Lemma diag_functor_fmonoidal_nat_left : preserves_tensor_nat_left (fmonoidal_preservestensordata diag_functor_fmonoidal_data).
proof: Proof. intros y x1 x2 f. apply pathsinv0. refine (_ @ naturality_inner_swap V (identity y) (identity y) f f @ _). - apply maponpaths. etrans. 2: { apply maponpaths. apply pathsinv0, (when_bifunctor_becomes_leftwhiskering V). } cbn ; apply maponpaths_2. apply pathsinv0, (when_bifunctor_becomes_leftwhiskering V). - rewrite <- (when_bifunctor_becomes_leftwhiskering V). do 2 apply maponpaths_2. apply tensor_id_id. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Functors UniMath.CategoryTheory.Monoidal.Structure.Symmetric UniMath.CategoryTheory.Monoidal.Structure.SymmetricDiagonal