theorem Th4:
  f is_differentiable_on X implies X is Subset of REAL
by XBOOLE_1:1;
