| ¬(¬(∃ i. 2 ^ i = ~(j - 1)) ∧ 0 ≤ ~(j - 1)), int2bits(j - 1) = int2bits(2 ^ n→i(# int2bits(~(j - 1))) + (j - 1)).rest, 0 ≤ 2 ^ n→i(# int2bits(~(j - 1) - 1)) + (j - 1), 0 ≤ j0 + 2 ^ (i - 1), 0 < 2 ^ (i - 1) + j0, j0 < 0, j < 0, 0 < i, j * 2 ^ i + j0 < 0, 0 < 2 ^ i + j0, 0 ≤ i, 0 < 2 ^ n→i(# int2bits(~(j - 1) - 1)) + j, 0 ≤ 2 ^ i * (2 ^ n→i(# int2bits(~(j - 1) - 1)) + j) + j0 ⊦ j * 2 ^ i + j0 = 0, sgn(int2bits(2 ^ n→i(# int2bits(~(j - 1) - 1)) + (j - 1)).rest + fillsgn(i→n(i), int2bits(j0))) = int2bits(j - 1) + fillsgn(i→n(i), int2bits(j0)) |
int2bits(j - 1) = int2bits(2 ^ n→i(# int2bits(1 - j)) + j - 1).rest, 1 = 2 ^ i0 + j, 0 ≤ j0 + 2 ^ (i - 1), 0 < 2 ^ (i - 1) + j0, j0 < 0, j < 0, 0 < i, j * 2 ^ i + j0 < 0, 0 < 2 ^ i + j0, 0 ≤ i, 0 < 2 ^ n→i(# int2bits(~ j)) + j, 0 ≤ (2 ^ n→i(# int2bits(~ j)) + j) * 2 ^ i + j0 ⊦ j * 2 ^ i + j0 = 0, sgn(int2bits(2 ^ n→i(# int2bits(~ j)) + j - 1).rest + fillsgn(i→n(i), int2bits(j0))) = int2bits(j - 1) + fillsgn(i→n(i), int2bits(j0))
Used simplifier rules: ⊦ i * j = j * i;% ⊦ i < j ∧ ¬ i0 < j → ¬ i0 < i;% ⊦ ¬ i ≤ j ↔ j < i;% ⊦ i + 0 = i;% ⊦ i - j = i0 ↔ i = i0 + j;% ⊦ 1 ≤ i ↔ 0 < i;% ⊦ i ≤ j - i0 ↔ i + i0 ≤ j;% ⊦ i - j + i = ~ j;% ⊦ i - j - i0 = i - j + i0;% ⊦ i + (j - i0) = i + j - i0;% ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ i + ~ j = i - j;% ⊦ ~(i - 1) = ~ i + 1;