| ∃ i, j. ri = rational(i, j) ∧ ri.num = i ∧ ri.denom = j ∧ 0 < j ∧ gcd(i, j) = 1, ri * ri = rational(j, 1) ⊦ ∃ i. j = i * i |
gcd(i, j0) = 1, rational(i, j0) * rational(i, j0) = rational(j, 1), 0 < j0 ⊦ ∃ i. j = i * i
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 ∧ 0 ≤ i → 0 < j; (forward)