| ∃ i, j. rj = rational(i, j) ∧ 0 < j, 0 < j ⊦ rational(i, j) = rj, rj < rational(i, j), rational(i, j) < rj |
i * j0 = i0 * j, 0 < j0, 0 < j ⊦ rational(i, j) = rational(i0, j0)
Used simplifier rules: ls-def: ⊦ 0 < j ∧ 0 < j0 → (rational(i, j) < rational(i0, j0) ↔ i * j0 < i0 * j);% ⊦ i * j * j0 = (i * j) * j0;% ⊦ i ≤ i;% ⊦ 0 < i → (i * j ≤ i * i0 ↔ j ≤ i0);% ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward)% ⊦ i ≤ j → (j ≤ i ↔ i = j);% ⊦ i * j = j * i;% ⊦ ¬ i < j ↔ j ≤ i;