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