theorem Th53:
  p,p are_orthogonal iff p=0.TOP-REAL n
by Th39;
