RegionPlot[x < 2y,{x,0,1},{y,0,1}]