EquationSymbolicSolveRequest[List[Equal[x,y]],List[x]]Solution[{x,ExpressionSetPoint[y,False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[x,y]]]EquationSymbolicSolveRequest[List[Equal[ConstE,λ]],List[λ]]Solution[{λ,ExpressionSetPoint[ConstE,False,ReservedReal],2.718281828459}]