reserve X,X1 for set,
  r,s for Real,
  z for Complex,
  RNS for RealNormSpace,
  CNS, CNS1,CNS2 for ComplexNormSpace;

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