theorem Th11:
  p1 is_extremal_in LSeg(p1,p2) by RLTOPSP1:68,Th7;
