proposition: Proposition is_strong_left_adjoint_on_unit_laws : is_inverse_in_precat (fmonoidal_preservesunit HL) is_strong_left_adjoint_on_unit.
proof: Proof. split ; unfold is_strong_left_adjoint_on_unit. - rewrite !assoc. exact (pr2 Hε). - rewrite !assoc'. etrans. { apply maponpaths. refine (!_). exact (nat_trans_ax ε _ _ (fmonoidal_preservesunit HL)). } cbn -[L R]. rewrite !assoc. rewrite <- functor_comp. refine (_ @ triangle_1_statement_from_adjunction A (monoidal_unit M₁)). apply maponpaths_2. apply maponpaths. refine (!(pr2 Hη) @ _). apply id_left. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Monads.Comonads UniMath.CategoryTheory.Adjunctions.Core UniMath.CategoryTheory.Monoidal.FunctorCategories UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Functors UniMath.CategoryTheory.Monoidal.Structure.Symmetric