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