| 0 < j → (∃ i. 0 ≤ i ∧ 2 ^ i ≤ j ∧ j < 2 ^ (i + 1)), 0 ≤ j, j ≤ 2 ^ n→i(# int2bits(j)), 0 ≤ 2 ^ n→i(# int2bits(j)) ⊦ sgn(uint2bits(2 ^ n→i(# int2bits(j)) - j).rest) = uint2bits(2 ^ n→i(# int2bits(j)) - j).rest, ∃ i. 2 ^ i = j |
0 < j, 0 < 2 ^ n→i(# int2bits(j)), 0 < 2 ^ i, i ≤ n→i(# int2bits(j)), j ≤ 2 ^ n→i(# int2bits(j)), 0 ≤ 2 ^ n→i(# int2bits(j)), 0 ≤ i, 2 ^ i ≤ j, j < 2 ^ i * 2 ⊦ sgn(uint2bits(2 ^ n→i(# int2bits(j)) - j).rest) = uint2bits(2 ^ n→i(# int2bits(j)) - j).rest, 0 = j, ∃ i. 2 ^ i = j
Used simplifier rules: int2bits-zero: ⊦ int2bits(0) = false ';%uint2bits-pos-num: 1 < i ⊦ uint2bits((* i)) = uint2bits(i / 2) + (i % 2 = 1);%uint2bits-one: ⊦ uint2bits(1) = false + true;% ⊦ 0 ≤ n→i(n);% ⊦ 0 < i → (0 < i * j ↔ 0 < j);% ⊦ 0 < i ∧ 0 ≤ j → ((* j) < (* i) * i0 ↔ j / i < i0);% ⊦ i * j = j * i;% ⊦ i * j * j0 = (i * j) * j0;% ⊦ 1 * i = i;% ⊦ j < (* i1) * j ↔ 0 < (i1 - 1) * j;% ⊦ 0 ≤ i → (2 ^ i ≤ 2 ^ j ↔ i ≤ j);% ⊦ i < j ∧ j < j0 → i < j0; (forward)% ⊦ i < j ∧ j < i0 → i +1 < i0; (forward)% ⊦ i < j ∧ j ≤ j0 → i < j0; (forward)% ⊦ i ≤ j ∧ j < j0 → i < j0; (forward)% ⊦ j ≤ j0 ∧ j0 ≤ j1 → j ≤ j1; (forward)% ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ 0 ≤ i → j ^ (i + 1) = j ^ i * j;% ⊦ i ≠ j → (i ≤ j ↔ i < j);% ⊦ bits + bits0 = bits + bits1 ↔ bits0 = bits1;% ⊦ sgn(true ' + false ') = true ' + false ';% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ (boolvar ' + bits).rest = bits;% ⊦ bits + boolvar = bits + boolvar ';% ⊦ boolvar + boolvar0 = boolvar ' + boolvar0 ';% ⊦ # boolvar ' = 0 +1;% ⊦ i ≤ j → (j ≤ i ↔ i = j);% ⊦ ¬ i < j ↔ j ≤ i;