| true ∈ firstn(# bits - 8, bits) ∧ false ∈ firstn(# bits - 8, bits), # lastn(8, bits) = 8, sgn(bytes2bits(bits2bytes(firstn(# bits - 8, bits)))) = sgn(firstn(# bits - 8, bits)), 8 < # bits, false ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits))), true ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits))), ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ bits = [], sgn(firstn(# bits - 8, bits) + lastn(8, bits)) = sgn(bits) |
sgn(bytes2bits(bits2bytes(firstn(# bits - 8, bits)))) = sgn(firstn(# bits - 8, bits)), # lastn(8, bits) = 8, true ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits))), false ∈ bytes2bits(bits2bytes(firstn(# bits - 8, bits))), 8 < # bits, false ∈ firstn(# bits - 8, bits), true ∈ firstn(# bits - 8, bits), ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ sgn(firstn(# bits - 8, bits) + lastn(8, bits)) = sgn(bits), bits = []
Used simplifier rules: ⊦ m < n ∧ m = n0 → n0 < n; (forward)