| bits = [], # bits = # int2bits(i) - m, int2bits(i) = bits + lastn(m, int2bits(i)), m ≤ # int2bits(i), lastn(m, int2bits(i)).first, i < 0 ⊦ i + 2 ^ n→i(m) = 0, bits2int(lastn(m, int2bits(i))) = i % 2 ^ n→i(m), m = 0 |
int2bits(i) = lastn(# int2bits(i), int2bits(i)), i < 0 ⊦ i + 2 ^ n→i(# int2bits(i)) = 0, i = i % 2 ^ n→i(# int2bits(i))
Used simplifier rules: int2bits-not-empty: ⊦ int2bits(j) ≠ [];%int2int-inj: ⊦ bits2int(int2bits(i)) = i;%int2bits-first-01: ⊦ j < 0 → int2bits(j).first;% ⊦ m ≤ m;% ⊦ # bits = 0 ↔ bits = [];% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ [] + bits = bits;% ⊦ m ≤ n → (n - m = 0 ↔ n = m);% ⊦ # [] = 0;