In[]:=
r=ImplicitRegion[{x>=y,x<=1/y},{{x,0,∞},{y,0,1}}]
Out[]=
ImplicitRegionx≥y&&x≤
1
y
&&x≥0&&0≤y≤1,{x,y}
In[]:=
Region[r,Axes->True]
Out[]=