| gcd(i1, j1) = 1, gcd(i2, j2) = 1, 0 < j1, 0 < j2 ⊦ rational(i1, j1) * rational(i2, j2) = rational(i1 * i2, j1 * j2) |
⊦ ri * rj = rational(ri.num * rj.num, ri.denom * rj.denom)
Used simplifier rules: num-id: ⊦ gcd(i, j) = 1 ∧ 0 < j → rational(i, j).num = i;%denom-id: ⊦ gcd(i, j) = 1 ∧ 0 < j → rational(i, j).denom = j;% ⊦ i * j = j * i; Used terms: rational(i2, j2), rational(i1, j1)