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