| ¬ # int2bits(j % 2 ^ i) ≤ i→n(i) + 1, 2 ^ i ≤ j, 0 ≤ 2 ^ (i - 1) + j, 2 ^ (i - 1) ≤ j, 0 ≤ j, 0 < i, 2 ^ (i - 1) ≤ j % 2 ^ i, i→n(i) ≤ (# fillsgn(i→n(i) + 1, int2bits(j % 2 ^ i)) - 1) + # int2bits(j / 2 ^ i) ⊦ j % 2 ^ i = 2 ^ i + bits2int(lastn(i→n(i), int2bits(j / 2 ^ i) + fillsgn(i→n(i) + 1, int2bits(j % 2 ^ i)).rest)), fillsgn(i→n(i) + 1, int2bits(j % 2 ^ i)) = [], i→n(i) = # fillsgn(i→n(i) + 1, int2bits(j % 2 ^ i)) - 1 |
i→n(i) + 1 < # int2bits(j % 2 ^ i), i→n(i) ≤ (# fillsgn(i→n(i) + 1, int2bits(j % 2 ^ i)) - 1) + # int2bits(j / 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) = # fillsgn(i→n(i) + 1, int2bits(j % 2 ^ i)) - 1, fillsgn(i→n(i) + 1, int2bits(j % 2 ^ i)) = [], 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: ⊦ int2bits(j) ≠ [];% ⊦ # bits = 0 ↔ bits = [];% ⊦ m < n → n ≠ 0; (forward)% ⊦ ¬ m ≤ n ↔ n < m;