| ¬(((n - n0) * 8 - 8) % 8 = 0 ∧ (n - n0) * 8 - 8 ≠ 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) * 8 - 8)), bits.first |
# 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) * 8 - 8)), bits.first, ((n - n0) * 8 - 8) % 8 = 0 ∧ n - n0 ≠ 1
Used simplifier rules: ⊦ m * n = n * m;% ⊦ m0 * m * n = (m0 * m) * n;%n ≠ 0 ⊦ (* m) * m0 = (* n) ↔ n % m = 0 ∧ m0 = n / m ∧ m ≠ 0;% ⊦ m ≤ n → (n - m = 0 ↔ n = m);