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