| int2bits(i) = bits + lastn(m, int2bits(i)), # bits = # int2bits(i) - m, bits.first, lastn(m, int2bits(i)).first, m ≤ # int2bits(i), 0 < i ⊦ m = 0, i % 2 ^ n→i(m) = bits2int(lastn(m, int2bits(i))) + 2 ^ n→i(m), bits = [] |
Used simplifier rules: int2bits-first-03: ⊦ 0 < j → int2bits(j) ≠ true ' + bits;% ⊦ boolvar + bits = boolvar ' + bits;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;%bits ≠ [] ⊦ (boolvar ↔ bits.first) ∧ bits0 = bits.rest ↔ bits = boolvar + bits0; (elim) Used terms: bits, boolvar, bits0