EquationSymbolicSolveRequest[List[Equal[Product[x,y],2]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[2,y],NotEqual[y,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Product[x,y],2]],List[y]]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Divide[2,x],NotEqual[x,0]],False,ReservedReal]}]GraphingPlotEq2D[Equal[Product[x,y],2]]