| 0 ≤ n→i(# vals) + i, 0 ≤ j, 0 ≤ i, i ≤ j, j ≤ n→i(# vals) + i ⊦ (rk ∈ putArray(vals, r, i, addarray(r, ty, j, st)) ↔ rk = r -- _length ∨ rk ∈ addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)) ∧ (putArray(vals, r, i, addarray(r, ty, j, st))[rk]) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)[r -- _length, intval(j)][rk]) |
⊦ r -- _length ∈ addarray(r, ty, i, st)
⊦ (addarray(r, ty, i, st)[r -- _length]) = intval(i)
0 ≤ n→i(# vals) + i, 0 ≤ j, 0 ≤ i, i ≤ j, j ≤ n→i(# vals) + i ⊦ rk = r -- _length, (rk ∈ putArray(vals, r, i, addarray(r, ty, j, st)) ↔ rk = r -- _length ∨ rk ∈ addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)) ∧ (putArray(vals, r, i, addarray(r, ty, j, st))[rk]) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)[r -- _length, intval(j)][rk])
[[CONCRETESIMPRULES : ([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)], [CSIMPSEQ : ⊦ (putArray(vals, r, i, st) [r0 -- _length ] ) = st[r0 -- _length]], [CSIMPSEQ : ⊦ (st[rk, val][rk]) = val], [CSIMPSEQ : ⊦ intval(i) = intval(i0) ↔ i = i0])], [EXTRAFMAS : (rk = r -- _length)]]