| 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 ']) ⊦ r -- i ' = r -- i0 ', (addarray(r, val, i0, st)[r -- i0 ', val][r -- i ']) = st[r -- i '] |
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
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i ' = i0 ' ↔ i = i0], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]