for l being Element of NAT holds NIC ((AddTo (a,k1,b,k2)),l) = {(succ l)} by Th16;
hence JUMP (AddTo (a,k1,b,k2)) is empty by Th8; :: thesis: verum