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