| n0 = n + 1, 32 = n0 + # int2bits(~128), 32 = n + # int2bits(128), i2b(bits2uint(firstn(31, mklist(false, n) + int2bits(128)))) = i2b(bits2uint(firstn(31, mklist(true, n0) + int2bits(~128)))), # int2bits(128) ≤ 32, # int2bits(~128) ≤ 32 ⊦ |
31 = n + # int2bits(~128), 32 = n + # int2bits(128), i2b(bits2uint(firstn(31, mklist(false, n) + int2bits(128)))) = i2b(bits2uint(firstn(31, (mklist(true, n) + true ') + int2bits(~128)))), # int2bits(128) ≤ 32, # int2bits(~128) ≤ 32 ⊦
Used simplifier rules: ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ bits + [] = bits;% ⊦ mklist(boolvar, 0) = [];%n ≠ 0 ⊦ mklist(true, (* n)) = true ' + mklist(true, n -1);% ⊦ mklist(boolvar, m + n) = mklist(boolvar, m) + mklist(boolvar, n);% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;%n0 < n ⊦ (* n) = m0 + (* n0) ↔ n - n0 = m0;