∀ {C : Type u} [inst : CategoryTheory.Category.{v, u} C] [inst_1 : CategoryTheory.MonoidalCategory C] (A X : C)
  [inst_2 : CategoryTheory.Closed A],
  CategoryTheory.MonoidalClosed.curry
      (CategoryTheory.CategoryStruct.id
        (CategoryTheory.MonoidalCategoryStruct.tensorObj A ((CategoryTheory.Functor.id C).obj X))) =
    (CategoryTheory.ihom.coev A).app X