D[x*Integrate[y[t], {t, 1, x}] - (x + 1) Integrate[ t*y[t], {t, 1, x}], {x, 2}]