| rational(i, j) / ~ rational(i0, j0) = ~ rational(i * j0, i0 * j), 0 < j, 0 < j0, i < 0, i0 < 0 ⊦ i = 0, rational(i, j) / rational(i0, j0) = rational(i * j0, j * i0), i0 = 0, ~ rational(i0, j0) = 0r, j = 0 |
⊦ rj ≠ 0r → ri / ~ rj = ~(ri / rj)
¬ rational(i0, j0) ≠ 0r, rational(i, j) / ~ rational(i0, j0) = ~ rational(i * j0, i0 * j), 0 < j, 0 < j0, i < 0, i0 < 0 ⊦ i = 0, rational(i, j) / rational(i0, j0) = rational(i * j0, j * i0), i0 = 0, ~ rational(i0, j0) = 0r, j = 0
Used simplifier rules: negate-eq: ⊦ ~ ri = ~ rj ↔ ri = rj;% ⊦ i * j = j * i; Used terms: rational(i0, j0), rational(i, j)