| ⊦ i < 0 ∧ 0 < j ∧ i |%| j ≠ 0 → i |%| j = ~(~ i |%| j - j) |
i < 0, i < j, 0 < j ⊦ i |%| j = 0, j = i |%| j + ~ i |%| j
Used simplifier rules: forward-le-02: ⊦ j < i ∧ i ≤ 0 → j < 0; (forward) from specification int-abs%transitivity: ⊦ i < i0 ∧ i0 < i1 → i < i1; (forward) from specification oelem[intlista]%forward-le-05: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward) from specification int-abs%sub-eq: ⊦ i - j = i0 ↔ i = i0 + j; from specification int-abs%minus-sub: ⊦ ~(i - j) = j - i; from specification int-abs