Eliminate[{a^3-a-4==0,b==(a+a^2)/2},a]