| 0 < j % 2 ^ i, ¬ j % 2 ^ i < 2 ^ (n→i(i→n(i) + 1) - 1), 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)) |
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, 2 ^ i ≤ j % 2 ^ i, 0 < j % 2 ^ i ⊦ 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: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward)% ⊦ ¬ i < j ↔ j ≤ i;% ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ i + 0 = i;% ⊦ (* i) + i0 - (* j) = (i - j) + i0;% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ 0 < i → n→i(i→n(i)) = i;% ⊦ n→i(m + n) = n→i(m) + n→i(n);