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