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