| abs(n→i(m)) < j, n→i(m) = n→i(n) % j, n→i(m) + n→i(n) < j, 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, 1 < j, 0 < j, 0 < n→i(m) + n→i(n) ⊦ countFun(0, (j - 1) / 2, λ i. i ^2 |%| j) = [], j = 2, m = n, ~1 = (j - 1) / 2 |
n→i(m) = n→i(n) % j, n→i(m) < j, 0 < n→i(m) + n→i(n), 0 < j, 1 < j, n→i(n) ≤ (j - 1) / 2, n→i(m) ≤ (j - 1) / 2, prime(j), n < i→n(1 + (j - 1) / 2), m < i→n(1 + (j - 1) / 2), 0 ≤ j, n→i(m) + n→i(n) < j ⊦ ~1 = (j - 1) / 2, m = n, j = 2, countFun(0, (j - 1) / 2, λ i. i ^2 |%| j) = []
Used simplifier rules: mod-less-01: ⊦ 0 < j → i % j < j; from specification int-div%lel: ⊦ i < i0 ∧ i = i1 → i1 < i0; (forward) from specification oelem[intlista]%abs-02: ⊦ abs(n→i(n)) = n→i(n); from specification intnat