theorem
  p is_extremal_in LSeg(p1,p2) implies p = p1 or p = p2;
