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