solve x



    Antonio> how to get 2 from this?  
    Antonio> (%i2) solve([sqrt(x+2)=x], [x]);
    Antonio> (%o2) [x = sqrt(x + 2)]

load(to_poly_solve);
to_poly_solve(sqrt(x+2)=x,x) -> %union([x=2])

Ray