| ⊦ 0 < i ∧ 0 < j ∧ 0 < i1 → (i - j) * i1 < i * i1 |
Used simplifier rules: ls-pos: ⊦ 0 < i → (i * j < i * j0 ↔ j < j0);%associativity: ⊦ i * j * j0 = (i * j) * j0;%commutativity: ⊦ i * j = j * i;%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%lels-03: ⊦ i < j → (¬ ¬ j ≤ i ↔ false); from specification int-abs%lep-01: ⊦ i + j ≤ i ↔ j ≤ 0; from specification int-abs%lels: ⊦ ¬ i < j ↔ j ≤ i; from specification int-abs%sub-ls: ⊦ i - j < i0 ↔ i < j + i0; from specification int-abs