EquationSymbolicSolveRequest[List[Equal[x,y]],List[x]]Solution[{x,ExpressionSetPoint[y,False,ReservedReal]}]WorksheetAssign[x,y]yAssign[x,y]