| ~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) |
~128 ≤ bits2int(bits), bits2int(bits) ≤ 127, # bits ≤ 8, ∀ bits0. # bits0 < # bits → true → bits0 = [] ∨ sgn(bytes2bits(bits2bytes(bits0))) = sgn(bits0) ⊦ bits = [], sgn(mklist(bits.first, 8 - # bits) + bits) = sgn(bits)
Used simplifier rules: ⊦ j ≤ j0 ∧ j0 ≤ j1 → j ≤ j1; (forward)%⊦ # bits ≤ n ∧ bits ≠ [] → fillsgn(n, bits) = mklist(bits.first, n - # bits) + bits;% ⊦ # bits ≤ n → fillsgn(n, sgn(bits)) = fillsgn(n, bits);%bits ≠ [] ⊦ int2bits(bits2int(bits)) = sgn(bits);