| ¬(bits ≠ [] ∧ # bits % 8 = n0 ∧ n0 ≠ 0), # 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.first |
# 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