| 0 < j, i < 0, 0 ≤ ~ i ∧ 0 < j → (∃ i0, j0. ~ i = i0 * j + j0 ∧ 0 ≤ i0 ∧ 0 ≤ j0 ∧ j0 < j) ⊦ 0 ≤ i, ∃ i1, j1. i = i1 * j + j1 ∧ abs(j1) < j |
i + i0 * j + j0 = 0, j0 < j, i < 0, 0 < j, 0 ≤ j0, 0 ≤ i0, i ≤ 0 ⊦ ∃ i1, j1. i = i1 * j + j1 ∧ abs(j1) < j
Used simplifier rules: forward-lsle: ⊦ i < j ∧ j ≤ j0 → i < j0; (forward) from specification int-abs%forward-le-01: ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j; (forward) from specification int-abs% ⊦ i < j → ¬ j < i; (s)% ⊦ ~ i = j ↔ i + j = 0; (s)%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2% ⊦ i + 0 = i; (s)% ⊦ i ≤ ~ j ↔ i + j ≤ 0; (s)% ⊦ i < 0 ∧ 0 ≤ j → i < j; (s)% ⊦ i ≤ j ↔ ¬ j < i; (ss)