| # bits = n0 * 8, n0 < n, n0 + 1 < n, 8 ≤ (n - n0) * 8 ⊦ n - n0 = 1, bits = [], n = n0, mklist(i2b(0), n - n0) = i2b(0) ' + mklist(i2b(0), n - n0 - 1), bits.first |
⊦ m ≠ 0 → mklist(by, m) = by + mklist(by, m - 1)
Used simplifier rules: ⊦ n < m → m - n ≠ 0;% ⊦ by + bytes = by ' + bytes;% ⊦ bytes + bytes0 = bytes + bytes1 ↔ bytes0 = bytes1;% ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1; Used terms: n - n0, i2b(0)