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