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