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