collect[ resultant[ x^3 - x - a, y - x^2 - m x - n, x ], y ]