| 0 ≤ i0, i < 0 ∨ i0 < i, ∀ st, val, r, i, j0. i→n(j0) < i→n(i0 + 1) → (i < 0 ∨ j0 ≤ i → (addarray(r, val, j0, st)[r -- i ']) = st[r -- i ']) ⊦ (addarray(r, val, i0, st)[r -- i0 ', val][r -- i ']) = st[r -- i '], i = i0 |
⊦ rk ≠ rk0 → (st[rk0, val][rk]) = st[rk]
r -- i ' ≠ r -- i0 ', 0 ≤ i0, i < 0 ∨ i0 < i, ∀ st, val, r, i, j0. i→n(j0) < i→n(i0 + 1) → (i < 0 ∨ j0 ≤ i → (addarray(r, val, j0, st)[r -- i ']) = st[r -- i ']) ⊦ (addarray(r, val, i0, st)[r -- i ']) = st[r -- i '], i = i0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0], [CSIMPSEQ : ⊦ i ' = i0 ' ↔ i = i0])], [EXTRATERMS : (r -- i ', val, r -- i0 ', addarray(r, val, i0, st))]]