| 0 ≤ j, m < i→n(1 + (j - 1) / 2), n < i→n(1 + (j - 1) / 2), prime(j), n→i(m) ≤ (j - 1) / 2, n→i(n) ≤ (j - 1) / 2, j | n→i(n) ^2 - n→i(m) ^2, 0 < j ⊦ n→i(n) ^2 - n→i(m) ^2 = (n→i(n) - n→i(m)) * (n→i(n) + n→i(m)), countFun(0, (j - 1) / 2, λ i. (~1 - i ^2) |%| j) = [], j = 2, m = n, ~1 = (j - 1) / 2 |
0 ≤ j, m < i→n(1 + (j - 1) / 2), n < i→n(1 + (j - 1) / 2), prime(j), n→i(m) ≤ (j - 1) / 2, n→i(n) ≤ (j - 1) / 2, j | n→i(n) ^2 - n→i(m) ^2, 0 < j ⊦ countFun(0, (j - 1) / 2, λ i. (~1 - i ^2) |%| j) = [], j = 2, m = n, ~1 = (j - 1) / 2, n→i(n) ^2 = (n→i(n) - n→i(m)) * (n→i(n) + n→i(m)) + n→i(m) ^2
Used simplifier rules: sub-eq: ⊦ i - j = i0 ↔ i = i0 + j; from specification int-abs