theorem Th7:
  y in Sphere(x,r) iff |. y-x .| = r
proof
  hereby
    assume y in Sphere(x,r);
    then ex p being Point of TOP-REAL n st y = p & |. p-x .| = r;
    hence |. y-x .| = r;
  end;
  thus thesis;
end;
