| 0 < i, 1 < i, 0 < j2, 0 < i3, ∀ j2, j1, i4, i3. i→n(i3) + i→n(i4) < i→n(i * i0) + i→n(i2) → 0 < j1 ∧ 0 < j2 → rational(i3, j1) * rational(i4, j2) = rational(i3 * i4, j1 * j2) ⊦ i→n(i0) + i→n(i2) < i→n(i * i0) + i→n(i2), rational(i0, i3) * rational(i2, j2) = rational(i0 * i2, i3 * j2), i = 0, j2 = 0 |
0 < i3, 0 < j2, 1 < i, 0 < i, ∀ j2, j1, i4, i3. i→n(i3) + i→n(i4) < i→n(i * 0) + i→n(i2) → 0 < j1 ∧ 0 < j2 → rational(i3, j1) * rational(i4, j2) = rational(i3 * i4, j1 * j2) ⊦ j2 = 0, i = 0, rational(0, 1) = rational(0, i3 * j2)
Used simplifier rules: mult-zero-01: ⊦ ri * rational(0, j) = 0r;%zero-def: ⊦ 0r = rational(0, 1);%mult-comm: ⊦ ri * rj = rj * ri;% ⊦ i * 0 = 0;% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ 1 < i → (i * abs(j) ≤ abs(j) ↔ j = 0);% ⊦ ¬ i < j ↔ j ≤ i;% ⊦ i * j = j * i;% ⊦ i * j * j0 = (i * j) * j0;% ⊦ 1 < i → abs(i) = i;% ⊦ abs(i * j) = abs(i) * abs(j);% ⊦ i→n(i) < i→n(j) ↔ abs(i) < abs(j);% ⊦ m + n < m + n0 ↔ n < n0;