| # int2bits(j0).rest ≠ 0 ∧ # int2bits(j) ≠ 0 ∧ int2bits(j).first, # int2bits(j0) = i→n(i) + 1, j < 0, j + 1 < i, 0 ≤ j0, 0 < 2 ^ i, j < i, j < j0, j + 1 < 2 ^ i, (¬ mklist(false, i→n(i)).first) ∈ bitsinvert(uint2bits(~ j)) +1, j < 2 ^ i, j0 < 2 ^ i, 0 < i, i→n(i) ≤ # int2bits(j0).rest ⊦ i = 0, bitsinvert(int2bits(j)) + mklist(true, i→n(i)) = [], ~(2 ^ n→i(# int2bits(j0).rest) * bits2uint(bitsinvert(int2bits(j)))) - bits2uint(bitsinvert(int2bits(j0).rest)) + 1 = j * 2 ^ i + j0 |
# int2bits(j0) = i→n(i) + 1, j < 0, j + 1 < i, 0 ≤ j0, 0 < 2 ^ i, j < i, j < j0, j + 1 < 2 ^ i, (¬ mklist(false, i→n(i)).first) ∈ bitsinvert(uint2bits(~ j)) +1, j < 2 ^ i, j0 < 2 ^ i, 0 < i, i→n(i) ≤ # int2bits(j0).rest ⊦ i = 0, bitsinvert(int2bits(j)) + mklist(true, i→n(i)) = [], (j + 1) * 2 ^ n→i(# int2bits(j0).rest) = (j * 2 ^ i + j0) + bits2uint(bitsinvert(int2bits(j0).rest)) + 1, int2bits(j0).rest = []
Used simplifier rules: ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ j < 0 → int2bits(j).first;% ⊦ int2bits(j) ≠ [];% ⊦ # bits = 0 ↔ bits = [];% ⊦ i - j = i0 ↔ i = i0 + j;% ⊦ ~ ~ i = i;% ⊦ i * j = j * i;% ⊦ i * j * j0 = (i * j) * j0;% ⊦ ~ i * j = ~(i * j);% ⊦ ~ i - j = ~(i + j);% ⊦ j < 0 → bits2uint(bitsinvert(int2bits(j))) = ~ j - 1;