| m < i→n(i), # int2bits(j % 2 ^ (i * 8)) = m * 8 + n, i→n(i * 8) % 8 = 0, n < 8, m < i→n(i), 0 ≤ j % 2 ^ (i * 8), 2 ^ (i * 8) ≤ j, 0 < i, m * 8 + n < i→n(i * 8), 0 ≤ bytes2int(bits2bytes(int2bits(j % 2 ^ (i * 8)))) ⊦ i = 0, m * 8 + n = i→n(i * 8), i→n(i * 8) + 1 = m * 8 + n, mklist(false, 8 * (i→n(i) - m + 1)) + mklist(false, 8 - n) + int2bits(j % 2 ^ (i * 8)) = [], i→n(i) - m + 1 = 0, mklist(false, 8 - n) + int2bits(j % 2 ^ (i * 8)) = [], n = 0, mklist(i2b(0), i→n(i) - m + 1) + bits2bytes(mklist(false, 8 - n) + int2bits(j % 2 ^ (i * 8))) = mklist(i2b(0), i→n(i) - m + 1) + bits2bytes(int2bits(j % 2 ^ (i * 8))) |
# int2bits(j % 2 ^ (i * 8)) = m * 8 + n, i→n(i * 8) % 8 = 0, n < 8, m < i→n(i), 0 ≤ j % 2 ^ (i * 8), 2 ^ (i * 8) ≤ j, 0 < i, m * 8 + n < i→n(i * 8), 0 ≤ bytes2int(bits2bytes(int2bits(j % 2 ^ (i * 8)))) ⊦ i = 0, m * 8 + n = i→n(i * 8), i→n(i * 8) + 1 = m * 8 + n, mklist(false, 8 * (i→n(i) - m + 1)) + mklist(false, 8 - n) + int2bits(j % 2 ^ (i * 8)) = [], i→n(i) - m + 1 = 0, mklist(false, 8 - n) + int2bits(j % 2 ^ (i * 8)) = [], n = 0, bits2bytes(mklist(false, 8 - n) + int2bits(j % 2 ^ (i * 8))) = bits2bytes(int2bits(j % 2 ^ (i * 8)))
Used simplifier rules: ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1;% ⊦ bytes + bytes0 = bytes + bytes1 ↔ bytes0 = bytes1;% ⊦ i * j = j * i;% ⊦ m + n = n + m;