theorem Th9:
  a^2 is_quadratic_residue_mod m
proof
  (a^2 - a^2) mod m = 0 by INT_1:73;
  hence thesis;
end;
