| # 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) |
# bits = m * 8 + n0, bits.first, n0 < 8, m < n, # bits ≤ 8 * (n - 1), 1 + m < n ⊦ bits = [], n0 = 0, mklist(true, 8 - n0) + bits = [], n * 8 = # bits, bits2bytes(bits) = bits2bytes(mklist(true, 8 - n0) + bits)
Used simplifier rules: ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1;% ⊦ bytes + bytes0 = bytes + bytes1 ↔ bytes0 = bytes1;% ⊦ n < m → m - n ≠ 0;% ⊦ m + n = n + m;