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