| 0 < j2, j0 < abs(j), i0 < i, j0 < j2, j < 0, abs(j) * i ≤ abs(j) * i0 + j0, 0 ≤ j0, abs(j) ≤ j2, ∀ j0, j, i, i0. j0 < abs(j) ∧ abs(j) < j2 ∧ abs(j) * i ≤ abs(j) * i0 + j0 ∧ 0 ≤ j0 → i ≤ i0 ⊦ j = 0 |
j0 + j < 0, i0 < i, j < 0, 0 < j2, j0 < j2, j * i0 ≤ j * i + j0, 0 ≤ j0, 0 ≤ j + j2, ∀ j0, j, i, i0. j0 < abs(j) ∧ abs(j) < j2 ∧ abs(j) * i ≤ abs(j) * i0 + j0 ∧ 0 ≤ j0 → i ≤ i0 ⊦ j = 0
Used simplifier rules: minus-left: ⊦ ~ i * j = ~(i * j);%associativity: ⊦ i * j * j0 = (i * j) * j0;%commutativity: ⊦ i * j = j * i;% ⊦ i + j < i + i0 ↔ j < i0; (s)% ⊦ i < 0 ∧ 0 ≤ j → i < j; (s)% ⊦ i + j < j ↔ i < 0; (s)%forward-le-01: ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j; (forward) from specification int-abs%forward-le-02: ⊦ j < i ∧ i ≤ 0 → j < 0; (forward) from specification int-abs%forward-lsle: ⊦ i < j ∧ j ≤ j0 → i < j0; (forward) from specification int-abs% ⊦ i < ~ j ↔ i + j < 0; (s)% ⊦ i + 0 = i; (s)% ⊦ i ≤ j - i0 ↔ i + i0 ≤ j; (s)% ⊦ i + (j - i0) = i + j - i0; (s)%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2% ⊦ i + ~ j = i - j; (s)% ⊦ ~ i ≤ j ↔ 0 ≤ i + j; (s)% ⊦ i < 0 → abs(i) = ~ i; (s)