| n ≤ # bits2bytes(bits), # bits ≤ 8 * n ⊦ n = 0, bits = [], fix(n, bits2bytes(bits)) = bits2bytes(mklist(bits.first, n * 8 - # bits) + bits) |
⊦ # bits % 8 = 0 ∧ bits ≠ [] → # bits2bytes(bits) = # bits / 8
¬(# bits % 8 = 0 ∧ bits ≠ []), n ≤ # bits2bytes(bits), # bits ≤ 8 * n ⊦ n = 0, bits = [], fix(n, bits2bytes(bits)) = bits2bytes(mklist(bits.first, n * 8 - # bits) + bits)
# bits % 8 = 0 ∧ bits ≠ [], n ≤ # bits / 8, # bits ≤ 8 * n ⊦ n = 0, bits = [], fix(n, bits2bytes(bits)) = bits2bytes(mklist(bits.first, n * 8 - # bits) + bits)
Used terms: bits