Definition make_adjunction_enrichment {V : monoidal_cat} {C₁ C₂ : category} (L : adjunction C₁ C₂) (E₁ : enrichment C₁ V) (E₂ : enrichment C₂ V) (EL : functor_enrichment (left_adjoint L) E₁ E₂) (ER : functor_enrichment (right_adjoint L) E₂ E₁) (Eη : nat_trans_enrichment (adjunit L) (functor_id_enrichment E₁) (functor_comp_enrichment EL ER)) (Eε : nat_trans_enrichment (adjcounit L) (functor_comp_enrichment ER EL) (functor_id_enrichment E₂)) : adjunction_enrichment L E₁ E₂ := EL ,, ER ,, Eη ,, Eε.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.Adjunctions.Core. Require Import UniMath.CategoryTheory.EnrichedCats.Enrichment. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentTransformation. Require Import UniMath.CategoryTheory.Monoidal.Categories.