| 8 ≠ 0, ∃ n0. # bits = n0 * 8, # bits / 8 < n ⊦ n * 8 = # bits, mklist(i2b(0), n - # bits / 8) = bits2bytes(mklist(false, n * 8 - # bits)), bits = [], bits.first |
# bits = n0 * 8, n0 < n ⊦ bits = [], mklist(i2b(0), n - n0) = bits2bytes(mklist(false, n * 8 - n0 * 8)), n = n0, bits.first
Used simplifier rules: ⊦ m * n = m * n0 ↔ m = 0 ∨ n = n0;% ⊦ m * n = n * m;% ⊦ m0 * m * n = (m0 * m) * n;%n ≠ 0 ⊦ (m * n) / n = m;