| # mklist(false, n - # int2bits(i)) ≤ n - i→n(j), i→n(j) < # int2bits(i), 0 ≤ i, # int2bits(i) < n, i→n(j) < n, i→n(j) + 1 < n ⊦ # int2bits(i) = i→n(j), bits2int(mklist(false, i→n(j)) + mklist(false, n - # int2bits(i)) + firstn(n - i→n(j) - # mklist(false, n - # int2bits(i)), int2bits(i))) = bits2int(firstn(# int2bits(i) - i→n(j), int2bits(i))), firstn(# int2bits(i) - i→n(j), int2bits(i)).first |
i→n(j) < # int2bits(i), 0 ≤ i, # int2bits(i) < n, i→n(j) < n, i→n(j) + 1 < n, n ≤ (n - i→n(j)) + # int2bits(i), i→n(j) < (n - i→n(j)) + # int2bits(i), i→n(j) + 1 < (n - i→n(j)) + # int2bits(i) ⊦ # int2bits(i) = i→n(j), bits2int(mklist(false, i→n(j)) + mklist(false, n - # int2bits(i)) + firstn(n - i→n(j) - (n - # int2bits(i)), int2bits(i))) = bits2int(firstn(# int2bits(i) - i→n(j), int2bits(i))), n + # int2bits(i) = i→n(j), firstn(# int2bits(i) - i→n(j), int2bits(i)).first
Used simplifier rules: ⊦ 0 + m = m;%n ≤ m ⊦ (m - n) + n0 = n1 ↔ m + n0 = n + n1;% ⊦ ¬ m ≤ n ↔ n < m;% ⊦ m < n → ¬ n < m;% ⊦ m < n → n ≠ 0; (forward)% ⊦ n < m → m - n ≠ 0;% ⊦ m < m + n ↔ n ≠ 0;% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m < n ∧ n ≤ n0 → m < n0; (forward)%n0 ≤ n ⊦ n - n0 ≤ m ↔ n ≤ m + n0;% ⊦ m < n → m ≤ n;% ⊦ # mklist(boolvar, n) = n;