| # bits = # int2bits(i) - m, int2bits(i) = bits + lastn(m, int2bits(i)), i < 0, m ≤ # int2bits(i) ⊦ bits = [], bits2int(lastn(m, int2bits(i))) = i % 2 ^ n→i(m) + 2 ^ n→i(m), i % 2 ^ n→i(m) = 0, m = 0, lastn(m, int2bits(i)).first |
bits2int(int2bits(i)) = bits2int(bits + lastn(m, int2bits(i))), # bits = # int2bits(i) - m, int2bits(i) = bits + lastn(m, int2bits(i)), i < 0, m ≤ # int2bits(i) ⊦ bits = [], bits2int(lastn(m, int2bits(i))) = i % 2 ^ n→i(m) + 2 ^ n→i(m), i % 2 ^ n→i(m) = 0, m = 0, lastn(m, int2bits(i)).first
Used simplifier rules: int2int-inj: ⊦ bits2int(int2bits(i)) = i; Used formulas: bits2int(int2bits(i)) = bits2int(bits + lastn(m, int2bits(i)))