theorem Th14:
  for a, r being Real holds r > 0 implies a in ].a-r,a+r.[
proof
  let a, r be Real;
  assume r > 0;
  then |.a-a.| < r by ABSVALUE:def 1;
  hence thesis by RCOMP_1:1;
end;
