| ((8 - # bits % 8) + # bits) % 8 = 0, 8 < (8 - # bits % 8) + # bits, 8 < # bits ⊦ bits2bytes(firstn(# bits % 8, bits)) = bits2bytes(firstn(8, mklist(bits.first, 8 - # bits % 8) + bits)), bits = [], 8 + # bits = # bits % 8, # bits % 8 = 0 |
⊦ # bits ≤ 8 → bits2bytes(bits) = i2b(bits2int(bits)) '
# firstn(# bits % 8, bits) ≤ 8, ((8 - # bits % 8) + # bits) % 8 = 0, 8 < (8 - # bits % 8) + # bits, 8 < # bits ⊦ i2b(bits2int(firstn(# bits % 8, bits))) ' = bits2bytes(firstn(8, mklist(bits.first, 8 - # bits % 8) + bits)), bits = [], 8 + # bits = # bits % 8, # bits % 8 = 0
Used simplifier rules: ⊦ # firstn(n, bits) = n;%n ≠ 0 ⊦ m % n ≤ n; Used terms: firstn(# bits % 8, bits)