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