| prime(j) ∧ j ≠ 2, prime(j), false ∨ filter(countFun(0, (j - 1) / 2, λ i. i ^2 |%| j), countFun(0, (j - 1) / 2, λ i. (~1 - i ^2) |%| j)) ≠ [] ⊦ j = 2, ∃ i, i0, j0. 1 + i ^2 + i0 ^2 = j0 * j ∧ 0 < j0 ∧ j0 < j |
prime(j) ⊦ j = 2, filter(countFun(0, (j - 1) / 2, λ i. i ^2 |%| j), countFun(0, (j - 1) / 2, λ i. (~1 - i ^2) |%| j)) = [], ∃ i, i0, j0. 1 + i ^2 + i0 ^2 = j0 * j ∧ 0 < j0 ∧ j0 < j