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]}]GraphingShow3D[PlotEq3D[Equal[Product[x,y],2]],Options[Option[ShowWireframe,false],Option[ViewAngle,-15.591,179.148,58.911]]]GraphingShow3D[Plot3D[Product[x,y]],Plot3D[2],Options[Option[ShowWireframe,false],Option[ViewAngle,31.999,140.982,-37.211]]]GraphingPlotEq2D[Equal[Product[x,y],2]]