EquationSymbolicSolveRequest[List[Equal[Minus[Divide[μ,1.616255],Product[a,μ]],λ]],List[μ]]Solution[{μ,ExpressionSetPoint[ExpressionWithCondition[Divide[λ,Sum[200000/323251,Negative[a]]],NotEqual[a,200000/323251]],False,ReservedReal]}]Solution[{μ,ExpressionWithCondition[ReservedEmpty,And[Equal[a,200000/323251],NotEqual[λ,0]]]}]Solution[{μ,ExpressionWithCondition[ReservedReal,And[Equal[a,200000/323251],Equal[λ,0]]]}]EquationSymbolicSolveRequest[List[Equal[Minus[Divide[μ,1.616255],Product[a,μ]],λ]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[Divide[Product[200000,μ],323251],Negative[λ]],μ],NotEqual[μ,0]],False,ReservedReal]}]Solution[{a,ExpressionWithCondition[ReservedEmpty,And[Equal[μ,0],NotEqual[λ,0]]]}]Solution[{a,ExpressionWithCondition[ReservedReal,And[Equal[μ,0],Equal[λ,0]]]}]