GroebnerBasis[{D[y^4-8y^3x+20y^2x^2-16yx^3+2x^4+(x+1)^8/y^4,x]=0,D[y^4-8y^3x+20y^2x^2-16yx^3+2x^4+(x+1)^8/y^4,y]=0,y^4-8y^3x+20y^2x^2-16yx^3+2x^4+(x+1)^8/y^4=m},{y,x,m}]