| 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 '] |
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 ']
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0], [CSIMPSEQ : ⊦ i ' = i0 ' ↔ i = i0], [CSIMPFORWARD : ⊦ i < i0 ∧ i = i1 → i1 < i0], [CSIMPFORWARD : ⊦ i < j ∧ j ≤ j0 → i < j0], [CSIMPFORWARD : ⊦ j < i ∧ i ≤ 0 → j < 0], [CSIMPSEQ : ⊦ i ≤ j → (¬ ¬ j < i ↔ false)], [CSIMPFORWARD : ⊦ i ≤ j ∧ j < j0 → i < j0], [CSIMPSEQ : ⊦ ¬ i < i])], [EXTRAFMAS : (r -- i ' = r -- i0 ')]]