| i < 0, 0 < j ⊦ (i + i0 % j) % j = (i + i0 < 0 ⊃ (i + i0) % j;(0 ≤ i + i0 % j ⊃ (i + i0) % j;((i + i0 % j) % j ≠ 0 ⊃ (i + i0) % j - j;0))), i0 < 0 |
i < 0, 0 < j, 0 ≤ i0 ⊦ (i + i0 % j) % j = (i + i0 < 0 ⊃ (i + i0) % j;(0 ≤ i + i0 % j ⊃ (i + i0) % j;((i + i0 % j) % j ≠ 0 ⊃ (i + i0) % j - j;0)))
Used simplifier rules: ⊦ i < 0 ∧ 0 ≤ j → i < j; (s)%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; (ss)