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