| ∀ bytes0. # bytes0 < # bytes → bytes2bits(bytes0) ≠ [] → bytes0 = [] ∨ b2i(bytes0.first) = 0 ∨ b2i(bytes0.first) = ~1 ∨ bits2bytes(sgn(bytes2bits(bytes0))) = bytes0 ⊦ ∀ bytes0, by. bytes ≠ bytes0 + by ', b2i(bytes.first) = 0, b2i(bytes.first) = ~1, bits2bytes(sgn(bytes2bits(bytes))) = bytes |
∀ bytes1. # bytes1 < #(bytes0 + by ') → bytes2bits(bytes1) ≠ [] → bytes1 = [] ∨ b2i(bytes1.first) = 0 ∨ b2i(bytes1.first) = ~1 ∨ bits2bytes(sgn(bytes2bits(bytes1))) = bytes1 ⊦ b2i((bytes0 + by ').first) = 0, b2i((bytes0 + by ').first) = ~1, bits2bytes(sgn(bytes2bits(bytes0) + byte2bits(by))) = bytes0 + by '
Used simplifier rules: bytes2bits-append: ⊦ bytes2bits(bytes + bytes0) = bytes2bits(bytes) + bytes2bits(bytes0);%bytes2bits-one: ⊦ bytes2bits(by ') = byte2bits(by);% ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1;