reserve n,m for Nat,
  x,X,X1 for set,
  s,g,r,p for Real,
  S,T for RealNormSpace,
  f,f1,f2 for PartFunc of S, T,
  s1,s2,q1 for sequence of S,
  x0,x1, x2 for Point of S,
  Y for Subset of S;

theorem
  Y c= dom f & Y is compact & f is_uniformly_continuous_on Y implies f.:
  Y is compact by Th7,NFCONT_1:32;
