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