RegionPlot[{(y^2/4)-1 < x < 1 - (y^2)/4 },{y,0,2}]