∀ {C : Type u} [inst : CategoryTheory.Category.{v, u} C] [inst_1 : CategoryTheory.CartesianMonoidalCategory C] (A : C)
  [CategoryTheory.Closed A], (CategoryTheory.Limits.prod.functor.obj A).IsLeftAdjoint