| ¬ bitsxor(bits0, false ' + true ') + bitsxor(bits, mklist(false, i→n(j))) ≠ [], # bits = i→n(j), int2bits(i) = bits0 + bits, bitsxor(bits0 + bits, (false ' + true ') + mklist(false, i→n(j))) = bitsxor(bits0, false ' + true ') + bitsxor(bits, mklist(false, i→n(j))), 0 ≤ j, 0 ≤ i, 2 ^ j * 2 < i ⊦ bits = [], bits0 = [], (int2bits(bits2int(bitsxor(bits0, false ' + true ') + bitsxor(bits, mklist(false, i→n(j)))))[# bits0 - 1] ↔ ¬ bits0.last) ∧ int2bits(bits2int(bitsxor(bits0, false ' + true ') + bitsxor(bits, mklist(false, i→n(j)))))[# bits0 - 1, bits0.last] = bits0 + bits |
int2bits(i) = bits0 + bits, # bits = i→n(j), bitsxor(bits, mklist(false, i→n(j))) = [], bitsxor(bits0, false ' + true ') = [], bitsxor(bits0 + bits, (false ' + true ') + mklist(false, i→n(j))) = [], 2 ^ j * 2 < i, 0 ≤ i, 0 ≤ j ⊦ bits0 = [], bits = [], (false '[# bits0 - 1] ↔ ¬ bits0.last) ∧ false '[# bits0 - 1, bits0.last] = bits0 + bits
Used simplifier rules: ⊦ int2bits(0) = false ';% ⊦ bits2int([]) = 0;% ⊦ [] + bits = bits;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ ¬ bits + bits0 ≠ [] ↔ bits = [] ∧ bits0 = [];