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