| bytes2bits(bits2bytes(int2bits(j % 2 ^ (i * 8)))) ≠ [], # int2bits(j % 2 ^ (i * 8)) = n * 8, bytes2bits(bits2bytes(int2bits(j % 2 ^ (i * 8)))).first, n < i→n(i), 2 ^ (i * 8) ≤ j, 0 ≤ j % 2 ^ (i * 8), 0 < i ⊦ bits2bytes(mklist(false, 8 * i→n(i) - n * 8) + int2bits(j % 2 ^ (i * 8))) = fix(i→n(i) + 1, bits2bytes(int2bits(j % 2 ^ (i * 8)))).rest, mklist(false, 8 * i→n(i) - n * 8) + int2bits(j % 2 ^ (i * 8)) = [], 1 + 8 * i→n(i) = n * 8, n = i→n(i), i = 0 |
# int2bits(j % 2 ^ (i * 8)) = n * 8, bytes2bits(bits2bytes(int2bits(j % 2 ^ (i * 8)))).first, n < i→n(i), 2 ^ (i * 8) ≤ j, 0 ≤ j % 2 ^ (i * 8), 0 < i ⊦ bits2bytes(mklist(false, 8 * i→n(i) - n * 8) + int2bits(j % 2 ^ (i * 8))) = fix(i→n(i) + 1, bits2bytes(int2bits(j % 2 ^ (i * 8)))).rest, mklist(false, 8 * i→n(i) - n * 8) + int2bits(j % 2 ^ (i * 8)) = [], 1 + 8 * i→n(i) = n * 8, n = i→n(i), i = 0
Used simplifier rules: bytes2bits-empty-01: ⊦ bytes2bits(bytes) = [] ↔ bytes = [];%bits2bytes-empty: ⊦ bits2bytes(bits) ≠ [];% ⊦ i * j = j * i;