| # int2bits(i) ≤ n, 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(# int2bits(i) - i→n(j), 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 |
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(# int2bits(i) - i→n(j), 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: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m < n → m ≤ n;