>>148

y /. Solve[D[y, a] == 0, a][[2]]