| i < 0, i0 < 0, 0 < abs(i), abs(i) < abs(i0 + i) ⊦ gcd(abs(i), abs(i0 + i) - abs(i)) = gcd(i, i0), i = 0, i0 = 0, 0 < i ∧ i < i0 + i |
0 < abs(i0 + i) + i, i < 0, i0 < 0 ⊦ gcd(i, abs(i0 + i) + i) = gcd(i, i0), i = 0, i0 = 0, 0 < i ∧ i < i0 + i
Used simplifier rules: gcd-neg: ⊦ gcd(~ i, j) = gcd(i, j);%forward-le-02: ⊦ j < i ∧ i ≤ 0 → j < 0; (forward) from specification int-abs%forward-le-05: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward) from specification int-abs% ⊦ i < 0 ∧ 0 ≤ j → i < j; (s)% ⊦ 0 < ~ i ↔ i < 0; (s)% ⊦ ~ i < j ↔ 0 < j + i; (s)% ⊦ i - ~ j = i + j; (s)% ⊦ i < 0 → abs(i) = ~ i; (s)