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