| 0 ≤ (i0 + i1) % n→i(# ar), 0 ≤ i0, i1 ≤ n→i(# ar), i0 < n→i(# ar), inv(mk(ar, n→i(# ar), i0, i1)), i1 < n→i(# ar), inv(mk(ar[(i→n(i0) + i→n(i1)) % # ar, a], n→i(# ar), i0, i1 + 1)), 0 ≤ i0 + i1, n < i→n(i1), 0 < i1 ⊦ i1 = 0, # ar = 0, ar[(i→n(i0) + n) % # ar] = (ar[(i→n(i0) + i→n(i1)) % # ar, a][(i→n(i0) + n) % # ar]), # ar = 1 |
m ≠ n ⊦ (ar[m, a][n]) = ar[n]
¬ (i→n(i0) + i→n(i1)) % # ar ≠ (i→n(i0) + n) % # ar, 0 ≤ (i0 + i1) % n→i(# ar), 0 ≤ i0, i1 ≤ n→i(# ar), i0 < n→i(# ar), inv(mk(ar, n→i(# ar), i0, i1)), i1 < n→i(# ar), inv(mk(ar[(i→n(i0) + i→n(i1)) % # ar, a], n→i(# ar), i0, i1 + 1)), 0 ≤ i0 + i1, n < i→n(i1), 0 < i1 ⊦ i1 = 0, # ar = 0, ar[(i→n(i0) + n) % # ar] = (ar[(i→n(i0) + i→n(i1)) % # ar, a][(i→n(i0) + n) % # ar]), # ar = 1
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m])], [EXTRATERMS : ((i→n(i0) + n) % # ar, a, (i→n(i0) + i→n(i1)) % # ar, ar)]]