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