| # int2bits(j0) = 17, ~65536 < j0, j0 < ~32768, j0 < 0 ⊦ j0 = 0, s2i(i2s(bits2int(lastn(16, int2bits(j0))))) = j0 + 65536 |
⊦ # bits = n + 1 → lastn(n, bits) = bits.rest
# int2bits(j0) = 16 + 1, # int2bits(j0) = 17, ~65536 < j0, j0 < ~32768, j0 < 0 ⊦ j0 = 0, s2i(i2s(bits2int(int2bits(j0).rest))) = j0 + 65536
Used simplifier rules: a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2 Used terms: int2bits(j0), 16