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