| i * j = i * j0 + j1, i < 0, abs(j1) + i < 0 ⊦ j * i + 0 = j0 * i + j1 ∧ 0 ≤ 0 ∧ j1 ≤ 0 ∧ i < j1, j1 = 0 |
i * j = i * j0 + j1, i < j1, i < 0, i < ~1, j1 + i < 0, 0 < j1, i + 1 < j1 ⊦
Used simplifier rules: commutativity: ⊦ i * j = j * i;%zero-gels-01: ⊦ i < 0 ∧ 0 ≤ j → i < j; from specification int-abs%numls-03: ⊦ i + (* j) < (* j0) ↔ i < j0 - j; from specification int-abs%ls: ⊦ i + j < j ↔ i < 0; from specification int-basic2%succ-01: ⊦ i +1 = i + 1; from specification int-basic2%forward-le-05: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward) from specification int-abs%forward-le-02: ⊦ j < i ∧ i ≤ 0 → j < 0; (forward) from specification int-abs%trans: ⊦ i < j ∧ j < j0 → i < j0; (forward) from specification int-basic1%lf-01: ⊦ i < j ∧ j < i0 → i +1 < i0; (forward) from specification int-basic1%ls-01: ⊦ i < j → ¬ j < i; from specification int-basic1%abs-16: ⊦ 0 < j → abs(j) = j; from specification int-abs%lst-01: ⊦ ¬ i < j → (i ≠ j ↔ j < i); from specification int-basic1%lenls: ⊦ i ≤ j → ¬ j < i; from specification int-abs%sub-ls: ⊦ i - j < i0 ↔ i < j + i0; from specification int-abs%neg-15: ⊦ i + ~ j = i - j; from specification int-abs%abs-08: ⊦ i < 0 → abs(i) = ~ i; from specification int-abs%forward-lels: ⊦ i ≤ j ∧ j < j0 → i < j0; (forward) from specification int-abs%lels: ⊦ ¬ i < j ↔ j ≤ i; from specification int-abs%lels-02: ⊦ i ≠ j → (i ≤ j ↔ i < j); from specification int-abs%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%add-zero-rev: ⊦ 0 + i = i; from specification int-basic2