theorem Th12: :: INTEGR24:12

for f being PartFunc of REAL,REAL
for x0 being Real st f is_right_divergent_to+infty_in x0 holds
ex r being Real st
( 0 < r & f | ].x0,(x0 + r).[ is bounded_below )