| # int2bits(j % 2 ^ i) ≠ 0, # int2bits(j % 2 ^ i) = i→n(i) + 1, j % 2 ^ i < 0, 2 ^ (i - 1) + j < 0, j < 2 ^ (i - 1), 0 < i, j < 0, 0 ≤ 2 ^ (i - 1) + j % 2 ^ i, j < j % 2 ^ i, j + 2 ^ i ≤ 0, j + 2 ^ i < i, i→n(i) < # int2bits(j % 2 ^ i), j % 2 ^ i < ~1 ⊦ 2 ^ (n→i(# int2bits(j % 2 ^ i)) - 1) = 0, j % 2 ^ i = 0, i = 1, j = ~1 |
# int2bits(j % 2 ^ i) = i→n(i) + 1, j % 2 ^ i < 0, 2 ^ (i - 1) + j < 0, j < 2 ^ (i - 1), 0 < i, j < 0, 0 ≤ 2 ^ (i - 1) + j % 2 ^ i, j < j % 2 ^ i, j + 2 ^ i ≤ 0, j + 2 ^ i < i, j % 2 ^ i < ~1 ⊦ j % 2 ^ i = 0, i = 1, j = ~1
Used simplifier rules: ⊦ i ≤ i;% ⊦ ¬ i < j ↔ j ≤ i;% ⊦ 0 < j → abs(j) = j;% ⊦ i→n(i) < i→n(j) ↔ abs(i) < abs(j);% ⊦ m < n + 1 ↔ ¬ n < m;% ⊦ m < n → (n ≤ m + 1 ↔ n = m + 1);% ⊦ 0 < j → (i ^ j = 0 ↔ i = 0);% ⊦ i + 0 = i;% ⊦ (* i) + i0 - (* j) = (i - j) + i0;% ⊦ 0 < i → n→i(i→n(i)) = i;% ⊦ n→i(m + n) = n→i(m) + n→i(n);% ⊦ m + 1 ≠ 0;% ⊦ m < n → n ≠ 0; (forward)% ⊦ m < n ∧ n = n0 → m < n0; (forward)% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m = n + 1 ∧ n < n0 → m ≤ n0; (forward)% ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ int2bits(j) ≠ [];% ⊦ # bits = 0 ↔ bits = [];