# Solve::incnst: Inconsistent or redundant ... Mathematica 9

GROUPS:
 Harvey Vargas 1 Vote Bx1 = Px1 X1 - Py1 Yx1 - Pn1 nx1; (* eq 1 *) Bx2 = 1/(1 + r) (Px2 X2 - Py2 Yx2 - Pn2 nx2); (* eq 2 *) Lx = Simplify[Bx1] + Simplify[ Bx2] + [Lambda]1 (Log[ H] + [Delta] Log[nx1] + [Epsilon] Log[Yx1] - X1) + [Lambda]2 (Log[ H] + [Delta] Log[nx2] + [Epsilon] Log[Yx2] - X2); (* eq 3 *) varsx = {X1, X2, Yx1, Yx2, nx1, nx2, [Lambda]1, [Lambda]2}; Solve[Thread[D[Lx, #] & /@ varsx == 0], varsx] This code generates me errorSolve::incnst: Inconsistent or redundant transcendental equation. After reduction, the bad equation is -Py2 Yx2+Px2 [Epsilon] == 0. >>just give me the solution, as under Attachments:
 Click the blue >> to see information on the warning message. In this case, "This message is generated when Solve is used with degenerate transcendental equations or with transcendental equations that have no solution." I think here it is saying that the equations are redundant. A solution that matches the input is obtained. In[8]:= equs /. % Out[8]= {{True, True, True, True, True, True, True, True}}