theorem Th10: :: INTEGR25:10

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