| rk = r0 -- sk, rk ∈ st, st ⊆ st0 ⊦ r ∈ st, (rk ∈ st0 ∨ r0 = r ∧ ¬ is_fskey(sk) ∧ ¬ sk .index < i ∧ ¬ i + n→i(# vals) ≤ sk .index) ∧ st[rk] = (putArray(vals, r, i, st0)[rk]) |
r0 ∈ st, st ⊆ st0, r0 -- sk ∈ st, r0 -- sk ∈ st0, r0 ∈ st0 ⊦ st[r0 -- sk] = (putArray(vals, r, i, st0)[r0 -- sk]), r ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ rk ∈ st ∧ ¬ rk ∈ st0 → ¬ st ⊆ st0], [CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])]]