| 0 ≤ i, 0 < i, ∀ st, val, r, i0. i→n(i0) < i→n(i) → (0 ≤ i0 → addarray(r, val, i0, st) = putArray(mklist(val, i→n(i0)), r, 0, st)) ⊦ (addarray(r, val, i - 1, st)[r -- (i - 1) ', val]) = putArray(mklist(val, i→n(i)), r, 0, st) |
i = i1 + 1, 0 ≤ i, 0 < i, ∀ st, val, r, i0. i→n(i0) < i→n(i) → (0 ≤ i0 → addarray(r, val, i0, st) = putArray(mklist(val, i→n(i0)), r, 0, st)) ⊦ (addarray(r, val, i1, st)[r -- i1 ', val]) = putArray(mklist(val, i→n(i)), r, 0, st)
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ i0 = i - j ↔ i = i0 + j])], [EXTRATERMS : (i, 1, i1)]]