| 2 ^ i ≤ j ∧ 0 < i, i→n(i) ≤ #(int2bits(j / 2 ^ i) + fillsgn(i→n(i + 1), int2bits(j % 2 ^ i)).rest), 2 ^ (i - 1) ≤ j % 2 ^ i, 0 < i, 0 ≤ j, 2 ^ (i - 1) ≤ j, 0 ≤ 2 ^ (i - 1) + j ⊦ j % 2 ^ i = bits2int(lastn(i→n(i), int2bits(j / 2 ^ i) + fillsgn(i→n(i + 1), int2bits(j % 2 ^ i)).rest)) + 2 ^ i |
2 ^ (i - 1) ≤ j % 2 ^ i, 0 < i, 0 ≤ j, 2 ^ (i - 1) ≤ j, 0 ≤ 2 ^ (i - 1) + j, 2 ^ i ≤ j, i→n(i) ≤ # int2bits(j / 2 ^ i) + # fillsgn(i→n(i) + 1, int2bits(j % 2 ^ i)).rest ⊦ j % 2 ^ i = 2 ^ i + bits2int(lastn(i→n(i), int2bits(j / 2 ^ i) + fillsgn(i→n(i) + 1, int2bits(j % 2 ^ i)).rest))
Used simplifier rules: ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ #(bits + bits0) = # bits + # bits0;% ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ 0 < i → i→n(i + 1) = i→n(i) + 1;