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