theorem
  y in Sphere(0.TOP-REAL n,r) implies |.y.| = r
proof
  assume y in Sphere(0.TOP-REAL n,r);
  then |. y-0.TOP-REAL n .| = r by Th7;
  hence thesis by RLVECT_1:13;
end;
