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