| j ≤ n→i(# vals) + i, i ≤ j, 0 ≤ i, 0 ≤ j, 0 ≤ n→i(# vals) + i ⊦ rk .ref = r, rk = r -- _length, (rk ∈ putArray(vals, r, i, addarray(r, ty, j, st)) ↔ rk ∈ addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)) ∧ (putArray(vals, r, i, addarray(r, ty, j, st))[rk]) = st[rk] |
⊦ r ≠ r0 → (r -- sk ∈ addarray(r0, ty, i, st) ↔ r -- sk ∈ st)
⊦ r ≠ r0 → (r -- sk ∈ addarray(r0, ty, vals, st) ↔ r -- sk ∈ st)
⊦ r ≠ r0 → (addarray(r, ty, i, st)[r0 -- sk]) = st[r0 -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ r ≠ r0 → ( r0 -- sk ∈ putArray(vals, r, j, st) ↔ r0 -- sk ∈ st)], [CSIMPSEQ : ⊦ r ≠ r0 → (putArray(vals, r, j, st) [r0 -- sk ] ) = st[r0 -- sk]], [CSIMPELIM : ⊦ r = rk .ref ∧ sk = rk .key ↔ rk = r -- sk])], [EXTRATERMS : (rk, r0, sk)]]