∀ {C : Type u₁} [inst : CategoryTheory.Category.{v₁, u₁} C] (D : Type u₂) [inst_1 : CategoryTheory.Category.{v₂, u₂} D]
  [inst_2 : ∀ (a b : C), CategoryTheory.Limits.HasProductsOfShape (a ⟶ b) D] (c : C) (d : D) {X Y : C} (f : X ⟶ Y),
  ((CategoryTheory.evaluationRightAdjoint D c).obj d).map f =
    CategoryTheory.Limits.Pi.lift fun g =>
      CategoryTheory.Limits.Pi.π (fun x => d) (CategoryTheory.CategoryStruct.comp f g)