theorem :: ExtPerp4:
  for a,b,p,q being POINT of S holds
    are_orthogonal a,b,p,q implies are_orthogonal a,b,q,p;
