theorem Th1:
  n,n are_coprime iff n = 1
proof
  n gcd n = n by NAT_D:32;
  hence thesis by INT_2:def 3;
end;
