theorem Th19:
  ex C st C in LSeg(A,B) & |.A-C.| = 1/2 * |.A-B.|
  proof
    take C = 1/2 * (A+B);
    thus C in LSeg(A,B) by RLTOPSP1:69;
    thus thesis by Th18;
  end;
