| 8 ≠ 0, ((8 - n0) + m * 8 + n0) % 8 = 0, # bits = m * 8 + n0, m < n, (n0 / 8 + m) + 1 < n, bits.first, n0 < 8 ⊦ (m * 8 + n0) % 8 = 0, n - 1 - m = 0, mklist(true, 8 - n0) + bits = [], n0 = 0, n * 8 = m * 8 + n0, bits = [], mklist(i2b(~1), n - (n0 / 8 + m) + 1) + bits2bytes(bits) = bits2bytes(mklist(true, (n - 1 - m) * 8)) + bits2bytes(mklist(true, 8 - n0) + bits) |
# bits = m * 8 + n0, bits.first, n0 < 8, m < n, 1 + m < n ⊦ n0 = 0, n - 1 - m = 0, mklist(true, 8 - n0) + bits = [], n * 8 = # bits, bits = [], mklist(i2b(~1), n - 1 + m) + bits2bytes(bits) = bits2bytes(mklist(true, (n - 1 - m) * 8)) + bits2bytes(mklist(true, 8 - n0) + bits)
Used simplifier rules: ⊦ m < n → m / n = 0;% ⊦ m < n → m % n = m;% ⊦ m * n = n * m;% ⊦ m0 * m * n = (m0 * m) * n;%n ≠ 0 ⊦ (m + n0 * n) % n = m % n;% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ n < m → (m - n) + n = m;