| 8 < # bits, ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ sgn(bytes2bits(bits2bytes(firstn(# bits - 8, bits)) + i2b(bits2int(lastn(8, bits))))) = sgn(bits), bits = [] |
8 < # bits, ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ sgn(bytes2bits(bits2bytes(firstn(# bits - 8, bits))) + byte2bits(i2b(bits2int(lastn(8, bits))))) = sgn(bits), bits = []
Used simplifier rules: bytes2bits-append: ⊦ bytes2bits(bytes + bytes0) = bytes2bits(bytes) + bytes2bits(bytes0);%bytes2bits-one: ⊦ bytes2bits(by ') = byte2bits(by);% ⊦ # bits = 0 ↔ bits = [];% ⊦ m < n → n ≠ 0; (forward)% ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1;% ⊦ bytes + by = bytes + by ';