{x,y[x]}/.Solve[y1[x]==0,x]
                    1
{{-2, 14}, {1, -}}
2