| ¬ # bits % 8 ≠ 0, # bits = m * 8 + n0, ((8 - n0) + # bits) % 8 = 0, n0 < 8, # bits2bytes(bits) < n, # bits ≤ 8 * (n - 1), m < n ⊦ n * 8 = # bits, n0 = 0, mklist(false, 8 - n0) + bits = [], n - 1 - m = 0, bits = [], mklist(i2b(0), n - # bits2bytes(bits)) + bits2bytes(bits) = mklist(i2b(0), n - 1 - m) + bits2bytes(mklist(false, 8 - n0) + bits), bits.first |
((8 - n0) + # bits) % 8 = 0, # bits = m * 8 + n0, # bits % 8 = 0, m < n, # bits ≤ 8 * (n - 1), # bits2bytes(bits) < n, n0 < 8 ⊦ mklist(i2b(0), n - # bits2bytes(bits)) + bits2bytes(bits) = mklist(i2b(0), n - 1 - m) + bits2bytes(mklist(false, 8 - n0) + bits), bits = [], n - 1 - m = 0, mklist(false, 8 - n0) + bits = [], n0 = 0, n * 8 = # bits, bits.first