theorem
  for f be PartFunc of RNS,CNS st f is_uniformly_continuous_on X holds -
  f is_uniformly_continuous_on X
proof
  let f be PartFunc of RNS,CNS;
A1: -f = (-1r)(#)f by VFUNCT_2:23;
  assume f is_uniformly_continuous_on X;
  hence thesis by A1,Th12;
end;
