| # bits % 8 ≤ 8 ∧ 8 ≤ 8, ((8 - # bits % 8) + # bits) % 8 = 0, 8 < (8 - # bits % 8) + # bits, 8 < # bits ⊦ bits = [], 8 + # bits = # bits % 8, # bits % 8 = 0, i2b(bits2int(firstn(# bits % 8, bits))) = i2b(bits2int(mklist(bits.first, 8 - # bits % 8) + firstn((8 - 8) + # bits % 8, bits))), bits2int(firstn(# bits % 8, bits)) = bits2int(mklist(bits.first, 8 - # bits % 8) + firstn((8 - 8) + # bits % 8, bits)) |
((8 - # bits % 8) + # bits) % 8 = 0, 8 < (8 - # bits % 8) + # bits, 8 < # bits ⊦ bits = [], 8 + # bits = # bits % 8, # bits % 8 = 0, i2b(bits2int(firstn(# bits % 8, bits))) = i2b(bits2int(mklist(bits.first, 8 - # bits % 8) + firstn(# bits % 8, bits))), bits2int(firstn(# bits % 8, bits)) = bits2int(mklist(bits.first, 8 - # bits % 8) + firstn(# bits % 8, bits))
Used simplifier rules: ⊦ i2b(i) ≠ i2b(j) → i ≠ j; (forward)%n ≠ 0 ⊦ m % n ≤ n;% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ 0 + m = m;