| 8 < # bits, # bits % 8 = 0, 8 < # bits, ∀ bits0. # bits0 < # bits → true → # bits0 % 8 = 0 ∧ 8 < # bits0 → bits2bytes(bits0) = bits2bytes(firstn(8, bits0)) + bits2bytes(restn(8, bits0)) ⊦ bits2bytes(firstn(# bits - 8, bits)) + i2b(bits2int(lastn(8, bits))) = bits2bytes(firstn(8, bits)) + bits2bytes(restn(8, bits)), bits = [] |
# bits % 8 = 0, 8 < # bits, ∀ bits0. # bits0 < # bits → true → # bits0 % 8 = 0 ∧ 8 < # bits0 → bits2bytes(bits0) = bits2bytes(firstn(8, bits0)) + bits2bytes(restn(8, bits0)) ⊦ bits = [], bits2bytes(firstn(# bits - 8, bits)) + i2b(bits2int(lastn(8, bits))) ' = bits2bytes(firstn(8, bits)) + bits2bytes(restn(8, bits))
Used simplifier rules: ⊦ bytes + by = bytes + by ';