| 1 + i0 ^2 + i ^2 = j0 * j, j0 < j, prime(j), 0 < j0, 0 < j, 1 < j ⊦ j = 2, i ^2 + i0 ^2 + 1 ^2 + 0 ^2 = j0 * j ∧ 0 < j0 ∧ j0 < j ∧ (∀ i3, i4, i5, i6, j1. 0 < j1 ∧ j1 < j0 → i3 ^2 + i4 ^2 + i5 ^2 + i6 ^2 ≠ j1 * j), ∃ i, i0, i1, i2, j0. i ^2 + i0 ^2 + i1 ^2 + i2 ^2 = j0 * j ∧ 0 < j0 ∧ j0 < j ∧ (∀ i3, i4, i5, i6, j1. 0 < j1 ∧ j1 < j0 → i3 ^2 + i4 ^2 + i5 ^2 + i6 ^2 ≠ j1 * j) |
i1 ^2 + i2 ^2 + i3 ^2 + i4 ^2 = j1 * j, 1 + i0 ^2 + i ^2 = j0 * j, j1 < j, 0 < j0, 1 < j0, 0 < j1, j1 < j0, 0 < j, prime(j), j0 < j, 1 < j ⊦ j = 2, ∃ i, i0, i1, i2, j0. i ^2 + i0 ^2 + i1 ^2 + i2 ^2 = j0 * j ∧ 0 < j0 ∧ j0 < j ∧ (∀ i3, i4, i5, i6, j1. 0 < j1 ∧ j1 < j0 → i3 ^2 + i4 ^2 + i5 ^2 + i6 ^2 ≠ j1 * j)
Used simplifier rules: forward-le-05: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward) from specification int-abs%forward-pos: ⊦ i < j ∧ 0 < i → 0 < j ∧ 1 < j; (forward) from specification int-basic1%transitivity: ⊦ i < i0 ∧ i0 < i1 → i < i1; (forward) from specification oelem[intlista]%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%zero-i: ⊦ 0 ^2 = 0; from specification int-square%one: ⊦ 1 ^2 = 1; from specification int-square