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