| gcd(i1, j1) = 1, 0 < j1, 0 < j2, ∀ j2, j1, i, i0. i→n(i0) + i→n(i) < i→n(i1) + i→n(i2) → 0 < j1 ∧ 0 < j2 → rational(i0, j1) * rational(i, j2) = rational(i0 * i, j1 * j2) ⊦ rational(i1, j1) * rational(i2, j2) = rational(i1 * i2, j1 * j2), ∀ i1. ¬(i1 > 1 ∧ i1 | i2 ∧ i1 | j2) |
gcd(i1, j1) = 1, 0 < j1, 0 < i, 1 < i, 0 < i3, ∀ j2, j1, i4, i3. i→n(i3) + i→n(i4) < i→n(i1) + i→n(i * i0) → 0 < j1 ∧ 0 < j2 → rational(i3, j1) * rational(i4, j2) = rational(i3 * i4, j1 * j2) ⊦ rational(i1, j1) * rational(i0, i3) = rational(i1 * i * i0, j1 * i * i3)
Used simplifier rules: factor-rat-03: ⊦ 0 < j ∧ 0 < i1 → rational(i1 * i, i1 * j) = rational(i, j);% ⊦ i * j = j * i;% ⊦ i * j * j0 = (i * j) * j0;% ⊦ 0 < i → (0 < i * j ↔ 0 < j);% ⊦ i < j ∧ 0 < i → 0 < j ∧ 1 < j; (forward)% ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward)% ⊦ i | j ↔ (∃ i0. i * i0 = j);% ⊦ i > j ↔ j < i;