reserve k for Element of NAT;
reserve r,r1 for Real;
reserve i for Integer;
reserve q for Rational;

theorem Th3:
  NAT,INT are_equipotent by Th1,Th2,CARD_2:77;
