EquationSymbolicSolveRequest[List[Equal[Product[x,y],Sum[y,Product[List[1],x,y]]]],List[x]]-8GraphingShow3D[Plot3D[Product[x,y]],Plot3D[Sum[y,Product[List[1],x,y]]]]