| # int2bits(j) = i→n(i) + 1, j < 2 ^ i, 0 ≤ 2 ^ (i - 1) + j, 2 ^ (i - 1) ≤ j, 0 ≤ j, 0 < i, 2 ^ (i - 1) ≤ j % 2 ^ i, i→n(i) ≤ # int2bits(j), 0 ≤ i ⊦ j % 2 ^ i = bits2int(int2bits(j).rest) + 2 ^ i |
# int2bits(j) = i→n(i) + 1, 0 ≤ i, 2 ^ (i - 1) ≤ j % 2 ^ i, 0 < i, 0 ≤ j, 2 ^ (i - 1) ≤ j, 0 ≤ 2 ^ (i - 1) + j, j < 2 ^ i ⊦ j % 2 ^ i = bits2int(int2bits(j).rest) + 2 ^ i
Used simplifier rules: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m ≤ m + n;