| # int2bits(i) ≤ 8, ~128 ≤ i, i ≤ 127 ⊦ i = bits2int(lastn(8, mklist(¬ 0 ≤ i, 8 - # int2bits(i)) + int2bits(i))) |
⊦ n = # bits → lastn(n, bits) = bits
8 = #(mklist(¬ 0 ≤ i, 8 - # int2bits(i)) + int2bits(i)), # int2bits(i) ≤ 8, ~128 ≤ i, i ≤ 127 ⊦ i = bits2int(mklist(¬ 0 ≤ i, 8 - # int2bits(i)) + int2bits(i))
Used simplifier rules: ⊦ m + n = n + m;% ⊦ #(bits + bits0) = # bits + # bits0;% ⊦ # mklist(boolvar, n) = n;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ m ≤ n → (n < m ↔ false);% ⊦ ¬ m ≤ n ↔ n < m;%n ≤ m ⊦ (m - n) + n0 = n1 ↔ m + n0 = n + n1;% ⊦ (m + n0) + n1 = m + n0 + n1; Used terms: mklist(¬ 0 ≤ i, 8 - # int2bits(i)) + int2bits(i), 8