theorem Satz8p12:
  are_orthogonal A,x,A9 iff are_orthogonal A9,x,A by Satz8p2;
