theorem Th24: :: COUSIN:31
for a, b, x being Real st a <= x & x <= b holds
<*x*> in product <*[.a,b.]*>