theorem
  a gcd b is Element of NAT by ORDINAL1:def 12;
