| 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 |
# bits = n0 * 8, n0 * 8 ≤ 8 * n, n ≤ n0 ⊦ n = 0, fix(n, bits2bytes(bits)) = bits2bytes(mklist(bits.first, n * 8 - n0 * 8) + bits), bits = []
Used simplifier rules: ⊦ m * n = n * m;% ⊦ m0 * m * n = (m0 * m) * n;%n ≠ 0 ⊦ (m * n) / n = m;