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