| # bits ≤ 8, ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ bits = [], sgn(fillsgn(8, int2bits(b2i(i2b(bits2int(bits)))))) = sgn(bits) |
~128 ≤ i, i ≤ 127 ⊦ b2i(i2b((* i))) = i
~128 ≤ bits2int(bits) ∧ bits2int(bits) ≤ 127, # bits ≤ 8, ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ bits = [], sgn(fillsgn(8, int2bits(bits2int(bits)))) = sgn(bits)
Used simplifier rules: ⊦ ¬ i ≤ j ↔ j < i;% ⊦ # bits ≤ 8 ∧ bits ≠ [] → ¬ bits2int(bits) < ~128;% ⊦ # bits ≤ 8 ∧ bits ≠ [] → ¬ 127 < bits2int(bits); Used terms: bits2int(bits)