| 8 ≠ 0, ∃ n0. n = n0 * 8, 8 < n, ∀ n0. n0 < n → n0 % 8 = 0 → n0 = 0 ∨ bits2bytes(mklist(true, n0)) = mklist(i2b(~1), n0 / 8) ⊦ bits2bytes(firstn(n - 8, mklist(true, n))) + i2b(bits2int(lastn(8, mklist(true, n)))) ' = mklist(i2b(~1), n / 8) |
8 < n0 * 8, ∀ n1. n1 < n0 * 8 → n1 % 8 = 0 → n1 = 0 ∨ bits2bytes(mklist(true, n1)) = mklist(i2b(~1), n1 / 8) ⊦ bits2bytes(firstn(n0 * 8 - 8, mklist(true, n0 * 8))) + i2b(bits2int(lastn(8, mklist(true, n0 * 8)))) ' = mklist(i2b(~1), n0), n0 = 0
Used simplifier rules: ⊦ m0 * m = 0 ↔ m0 = 0 ∨ m = 0;% ⊦ m < n → n ≠ 0; (forward)% ⊦ m * n = n * m;% ⊦ m0 * m * n = (m0 * m) * n;% ⊦ m ≠ 0 → (m * m0) / m = m0;