theorem
  dist(x,L) >= 0
proof
  ex x0 being Element of REAL n st x0 in L & |.x-x0.| = dist(x,L) by Th57;
  hence thesis;
end;
