WorksheetMinus[Divide[x_1,1],Divide[μ,x_1]]Sum[x_1,Negative[Divide[μ,x_1]]]EquationSymbolicSolveRequest[List[Equal[Minus[Divide[x_1,1],Divide[μ,x_1]],x]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Sum[x_1,Negative[Divide[μ,x_1]]],NotEqual[x_1,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Minus[Divide[x_1,1],Divide[μ,x_1]],Product[x,y]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[x_1,Negative[Divide[μ,x_1]]],y],And[NotEqual[x_1,0],NotEqual[y,0]]],False,ReservedReal]}]Solution[{x,ExpressionWithCondition[ReservedEmpty,And[Equal[y,0],NotEqual[x_1,0],NotEqual[Sum[x_1,Negative[Divide[μ,x_1]]],0]]]}]Solution[{x,ExpressionWithCondition[ReservedReal,And[Equal[y,0],Equal[Sum[x_1,Negative[Divide[μ,x_1]]],0],NotEqual[x_1,0]]]}]