fact: Definition monoidal_adjunction {C₁ C₂ : category} (M₁ : monoidal C₁) (M₂ : monoidal C₂) (A : adjunction C₁ C₂) (L := left_adjoint A : C₁ ⟶ C₂) (R := right_adjoint A : C₂ ⟶ C₁) (η := adjunit A) (ε := adjcounit A) : UU := ∑ (HL : fmonoidal_lax M₁ M₂ L), ∑ (HR : fmonoidal_lax M₂ M₁ R), is_mon_nat_trans (identity_fmonoidal _) (comp_fmonoidal_lax HL HR) η × is_mon_nat_trans (comp_fmonoidal_lax HR HL) (identity_fmonoidal _) ε.
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