| # bits2bytes(bits) < n, # bits ≤ 8 * n ⊦ mklist(i2b(0), n - # bits2bytes(bits)) + bits2bytes(bits) = bits2bytes(mklist(false, n * 8 - # bits) + bits), bits = [], bits.first, # bits % 8 = 0 ∧ n * 8 ≠ # bits |
n * 8 ≠ # bits, # bits2bytes(bits) < n, # bits ≤ 8 * n ⊦ mklist(i2b(0), n - # bits2bytes(bits)) + bits2bytes(bits) = bits2bytes(mklist(false, n * 8 - # bits) + bits), bits = [], bits.first, # bits % 8 = 0 ∧ n * 8 ≠ # bits
# bits2bytes(bits) < n, # bits ≤ 8 * n ⊦ n * 8 ≠ # bits, mklist(i2b(0), n - # bits2bytes(bits)) + bits2bytes(bits) = bits2bytes(mklist(false, n * 8 - # bits) + bits), bits = [], bits.first, # bits % 8 = 0 ∧ n * 8 ≠ # bits
Used formulas: n * 8 ≠ # bits