theorem Th8: :: INTEGR25:8

for f being PartFunc of REAL,REAL st f is divergent_in-infty_to-infty holds
ex r being Real st f | (left_open_halfline r) is bounded_above