| ~128 ≤ bits2int(lastn(8, bits)) ∧ bits2int(lastn(8, bits)) ≤ 127, firstn(# bits - 8, bits) + lastn(8, bits) = bits, lastn(8, bits).first, bits2int(lastn(8, bits)) < 0, 8 < # bits, ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ # lastn(8, bits) = 8, byte2bits(i2b(bits2int(lastn(8, bits)))) = lastn(8, bits), bits = [], true ∈ firstn(# bits - 8, bits), true ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits))) |
firstn(# bits - 8, bits) + lastn(8, bits) = bits, ~128 ≤ bits2int(lastn(8, bits)), 8 < # bits, bits2int(lastn(8, bits)) < 0, ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ # lastn(8, bits) = 8, byte2bits(i2b(bits2int(lastn(8, bits)))) = lastn(8, bits), bits = [], true ∈ firstn(# bits - 8, bits), true ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits)))
Used simplifier rules: ⊦ i ≤ j ∧ j < j0 → i < j0; (forward)% ⊦ j < i ∧ i ≤ 0 → j < 0; (forward)%bits ≠ [] ⊦ bits2int(bits) < 0 → bits.first;% ⊦ lastn(n, bits) = [] ↔ n = 0;% ⊦ i < 0 ∧ 0 ≤ j → i ≤ j;