| r ≠ r ∨ r = r ∧ is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type ∨ r = r ∧ is_indexkey(sk) ∧ (sk .index < 0 ∨ n→i(# getarray(r, st)) ≤ sk .index), st[r -- _type] .type = mkarraytype(ty), is_array(r, st) ⊦ (r -- sk ∈ addarray(r, ty, getarray(r, st), st) → r -- sk ∈ st) ∧ st[r -- sk] = st[r -- sk] |
⊦ r ∈ addarray(r, ty0, vals, st)
st[r -- _type] .type = mkarraytype(ty), r -- sk ∈ addarray(r, ty, getarray(r, st), st), is_array(r, st), is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type ∨ is_indexkey(sk) ∧ (sk .index < 0 ∨ n→i(# getarray(r, st)) ≤ sk .index) ⊦ r -- sk ∈ st
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])]]