| i * j0 = i0 * j, 0 < j, 0 < j0, 0 < i, 0 < i0 ⊦ i / gcd(i, j) = i0 / gcd(i0, j0) ∧ rational(i, j).denom = rational(i0, j0).denom |
⊦ i ≠ 0 ∧ j ≠ 0 → rational(i, j).denom = abs(j) / gcd(i, j)
i ≠ 0 ∧ j ≠ 0, i * j0 = i0 * j, 0 < j, 0 < j0, 0 < i, 0 < i0 ⊦ i / gcd(i, j) = i0 / gcd(i0, j0) ∧ abs(j) / gcd(i, j) = rational(i0, j0).denom
Used simplifier rules: ⊦ i * 0 = 0;% ⊦ i * j * j0 = (i * j) * j0;% ⊦ i * j = j * i;% ⊦ 0 < i → (i * j = 0 ↔ j = 0); Used terms: j, i