| i0 - j * j0 = i0 |%| j, 0 < j ⊦ j = 0, ∃ i1. j * j1 + (i0 - j * j0) = j * i1 + i0 |
i0 = i0 |%| j + j * j0, 0 < j ⊦ j = 0, ∃ i. j * j1 = j * i + j * j0
Used simplifier rules: add-in: ⊦ i + j = i + i0 ↔ j = i0; from specification int-basic2%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%sub-add-01: ⊦ i + (j - i0) = i + j - i0; from specification int-abs%sub-eq: ⊦ i - j = i0 ↔ i = i0 + j; from specification int-abs