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