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