| i→n(i * 8) % 8 = 0, # int2bits(j % 2 ^ (i * 8)) = i→n(i * 8), 0 ≤ j % 2 ^ (i * 8), 0 < i, 2 ^ (i * 8) ≤ j ⊦ # bits2bytes(int2bits(j % 2 ^ (i * 8))) < i→n(i) + 1, bits2bytes(int2bits(j % 2 ^ (i * 8))) = fix(i→n(i) + 1, bits2bytes(int2bits(j % 2 ^ (i * 8)))).rest |
# int2bits(j % 2 ^ (i * 8)) = i→n(i * 8), i→n(i * 8) % 8 = 0, i→n(i) < # bits2bytes(int2bits(j % 2 ^ (i * 8))), 2 ^ (i * 8) ≤ j, 0 < i, 0 ≤ j % 2 ^ (i * 8) ⊦ bits2bytes(int2bits(j % 2 ^ (i * 8))) = fix(i→n(i) + 1, bits2bytes(int2bits(j % 2 ^ (i * 8)))).rest
Used simplifier rules: bits2bytes-empty: ⊦ bits2bytes(bits) ≠ [];% ⊦ # bytes = 0 ↔ bytes = [];% ⊦ m < n → n ≠ 0; (forward)% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m < n + 1 ↔ ¬ n < m;% ⊦ i * j = j * i;