theorem Th31:
  a <> 0 implies a|^2 is quadratic_residue
  by Th25;
