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