| # int2bits(i) ≤ 8 ∧ int2bits(i) ≠ [], ~128 ≤ i, i ≤ 127 ⊦ i = bits2int(lastn(8, mklist(int2bits(i).first, 8 - # int2bits(i)) + int2bits(i))) |
# int2bits(i) ≤ 8, ~128 ≤ i, i ≤ 127 ⊦ i = bits2int(lastn(8, mklist(¬ 0 ≤ i, 8 - # int2bits(i)) + int2bits(i)))
Used simplifier rules: ⊦ int2bits(j) ≠ [];% ⊦ ¬ i < j ↔ j ≤ i;% ⊦ int2bits(j).first ↔ j < 0;