theorem Th12: :: UNIFORM1:12
for r1, r2, s1, s2 being Real st r1 in [.s1,s2.] & r2 in [.s1,s2.] holds
|.(r1 - r2).| <= s2 - s1