theorem
  L = Line(x1,x2) implies {|.x-x0.| where x0 is Element of REAL n : x0
  in Line(x1,x2)} = dist_v(x,L);
