Definition sym_mon_closed_right_tensor_left_adjoint (V : sym_mon_closed_cat) (x : V) : is_left_adjoint (monoidal_right_tensor x). Proof. use left_adjoint_from_partial. - exact (λ y, x ⊸ y). - exact (λ y, internal_eval _ _). - exact (sym_mon_closed_left_tensor_right_adjoint_universal V x). Defined.
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.FunctorCategory. Require Import UniMath.CategoryTheory.Adjunctions.Core. Require Import UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.Structure.Symmetric. Import MonoidalNotations.