| r ≠ r0 ∨ r = r0 ∧ is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type ∨ r = r0 ∧ is_indexkey(sk) ∧ (sk .index < 0 ∨ n→i(# vals) ≤ sk .index) ⊦ (putArray(vals, r, 0, addarray(r, ty, n→i(# vals), st))[r0 -- sk]) = st[r0 -- sk] |
⊦ r ≠ r0 → (addarray(r, ty, i, st)[r0 -- sk]) = st[r0 -- sk]
is_indexkey(sk) ∧ (sk .index < 0 ∨ n→i(# vals) ≤ sk .index) ∨ is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type ⊦ (putArray(vals, r0, 0, addarray(r0, ty, n→i(# vals), st))[r0 -- sk]) = st[r0 -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → (putArray(vals, r, j, st) [r0 -- sk ] ) = st[r0 -- sk]])]]