| rational(i * i, j0 * j0) = rational(j, 1), gcd(i, j0) = 1, 0 < j0 ⊦ j0 = 0, ∃ i. j = i * i |
⊦ 0 < j ∧ 0 < j0 → (rational(i, j) = rational(i0, j0) ↔ i * j0 = i0 * j)
0 < j0 * j0 ∧ 0 < 1, (i * i) * 1 = j * j0 * j0, gcd(i, j0) = 1, 0 < j0 ⊦ j0 = 0, ∃ i. j = i * i
Used simplifier rules: ⊦ 0 < i → (0 < i * j ↔ 0 < j);% ⊦ ¬ i < j ↔ j ≤ i;% ⊦ i ≠ j → (i ≤ j ↔ i < j);% ⊦ i < j → ¬ j < i;% ⊦ i * j * j0 = (i * j) * j0;% ⊦ i * j = j * i; Used terms: 1, j, j0 * j0, i * i