| j > 0, r -- i ' ∈ (addarray(r, val, j - 1, st)[r -- (j - 1) ', val]), r ∈ (addarray(r, val, j - 1, st)[r -- (j - 1) ', val]), 0 < j, i < 0 ∨ j ≤ i, ∀ st, val, r, i, j0. i→n(j0) < i→n(j) → (true → (i < 0 ∨ j0 ≤ i → (r -- i ' ∈ addarray(r, val, j0, st) ↔ r -- i ' ∈ st))) ⊦ r -- i ' ∈ st |
0 < j, r -- i ' ∈ (addarray(r, val, j - 1, st)[r -- (j - 1) ', val]), i < 0 ∨ j ≤ i, ∀ st, val, r, i, j0. i→n(j0) < i→n(j) → (true → (i < 0 ∨ j0 ≤ i → (r -- i ' ∈ addarray(r, val, j0, st) ↔ r -- i ' ∈ st))) ⊦ r -- i ' ∈ st
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ r ∈ st[r -- sk, val]], [CSIMPSEQ : ⊦ i > j ↔ j < i])]]