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