| 8 ≠ 0, ∃ n0. # bits = n0 * 8, # bits ≤ 8 * (n - 1), # bits / 8 < n, bits.first ⊦ n * 8 = # bits, mklist(i2b(~1), n - # bits / 8) = bits2bytes(mklist(true, n * 8 - # bits)), bits = [] |
# bits = n0 * 8, bits.first, n0 < n ⊦ n = n0, bits = [], mklist(i2b(~1), n - n0) = bits2bytes(mklist(true, (n - n0) * 8))
Used simplifier rules: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m + 1 ≤ n ↔ m < n;%n0 ≤ n ⊦ m ≤ n - n0 ↔ m + n0 ≤ n;% ⊦ ¬ m ≤ n ↔ n < m;% ⊦ m < 1 ↔ m = 0;% ⊦ m < n → n ≠ 0;%0 ≠ m ⊦ (* m) * n ≤ m * n0 ↔ n ≤ n0;% ⊦ n0 < n → n * m - n0 * m = (n - n0) * m;% ⊦ m * n = m * n0 ↔ m = 0 ∨ n = n0;% ⊦ m * n = n * m;% ⊦ m0 * m * n = (m0 * m) * n;%n ≠ 0 ⊦ (m * n) / n = m;