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