EquationSymbolicSolveRequest[List[Equal[Minus[x_1,x_2],y]],List[x_1]]Solution[{x_1,ExpressionSetPoint[Sum[y,x_2],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Minus[x_1,x_2],y]],List[y]]Solution[{y,ExpressionSetPoint[Sum[x_1,Negative[x_2]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Minus[x_1,x_2],y]],List[x_2]]Solution[{x_2,ExpressionSetPoint[Sum[x_1,Negative[y]],False,ReservedReal]}]GraphingShow2D[PlotY2D[Minus[x_1,x_2]],PlotY2D[y],Options[Option[ArgRangeValue,x_1,0,0.96,2],Option[ArgRangeValue,x_2,0,0.6,2],Option[RangeX,-4,4],Option[RangeY,-2,2]]]GraphingPlotEq2D[Equal[Minus[x_1,x_2],y]]