theorem Th18:
  a = i mod p & b = j mod p implies a*b = (i*j) mod p
  proof
    assume a = i mod p & b = j mod p; then
    a*b = ((i mod p) * (j mod p)) mod p by INT_3:def 10;
    hence thesis by NAT_D:67;
  end;
