| i→n(i) = #(mklist(true, i→n(i) - # int2bits(j)) + int2bits(j)), # int2bits(j) ≤ i→n(i), 0 < i, j < 0, 0 < 2 ^ (i - 1) + j ⊦ bits2int(mklist(true, i→n(i) - # int2bits(j)) + int2bits(j)) = j |
# int2bits(j) ≤ i→n(i), 0 < i, j < 0, 0 < 2 ^ (i - 1) + j ⊦ bits2int(mklist(true, i→n(i) - # int2bits(j)) + int2bits(j)) = j
Used simplifier rules: ⊦ (m + n0) + n1 = m + n0 + n1;%n ≤ m ⊦ (m - n) + n0 = n1 ↔ m + n0 = n + n1;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ # mklist(boolvar, n) = n;% ⊦ #(bits + bits0) = # bits + # bits0;% ⊦ m + n = n + m;