reserve a,b,c,k,l,m,n for Nat,
  i,j,x,y for Integer;

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;
