theorem Th22: :: INTEGRA3:23

for A being non empty closed_interval Subset of REAL
for f being Function of A,REAL st f | A is bounded holds
for D, D1 being Division of A ex D2 being Division of A st
( D <= D2 & D1 <= D2 & rng D2 = (rng D1) \/ (rng D) & 0 <= (upper_sum (f,D)) - (upper_sum (f,D2)) & 0 <= (upper_sum (f,D1)) - (upper_sum (f,D2)) )