| # bits = n0 * 8, bits.first, n0 < n ⊦ bits = [], mklist(i2b(~1), n - n0) = bits2bytes(mklist(true, n * 8 - n0 * 8)), n = n0 |
⊦ n % 8 = 0 ∧ n ≠ 0 → bits2bytes(mklist(true, n)) = mklist(i2b(~1), n / 8)
¬((n * 8 - n0 * 8) % 8 = 0 ∧ n * 8 - n0 * 8 ≠ 0), # bits = n0 * 8, bits.first, n0 < n ⊦ bits = [], mklist(i2b(~1), n - n0) = bits2bytes(mklist(true, n * 8 - n0 * 8)), n = n0
(n * 8 - n0 * 8) % 8 = 0 ∧ n * 8 - n0 * 8 ≠ 0, # bits = n0 * 8, bits.first, n0 < n ⊦ bits = [], mklist(i2b(~1), n - n0) = mklist(i2b(~1), (n * 8 - n0 * 8) / 8), n = n0
Used terms: n * 8 - n0 * 8