theorem :: ExtPerp:
  for a,b,c,d,x,p,q being POINT of S holds
    c in Line(a,b) & d in Line(a,b) & c <> d &
      are_orthogonal a,b,x,p,q implies are_orthogonal c,d,x,p,q by Prelim11;
