theorem Th6:
  -n is Element of NAT iff n = 0
proof
  thus -n is Element of NAT implies n = 0
  proof
    assume -n is Element of NAT;
    then -n>=0 & n+(-n)>=0+n;
    hence thesis;
  end;
  thus thesis;
end;
