| 0 ≤ n→i(# vals) + i, 0 ≤ j, 0 ≤ i, i ≤ j, j ≤ n→i(# vals) + i, is_indexkey(sk) ⊦ r -- sk ∈ putArray(vals, r, i, addarray(r, ty, j, st)) ↔ r -- sk ∈ addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st), sk = _length, sk = _type |
⊦ is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type → (r -- sk ∈ addarray(r, ty, vals, st) ↔ r -- sk ∈ st)
¬ (is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type), 0 ≤ n→i(# vals) + i, 0 ≤ j, 0 ≤ i, i ≤ j, j ≤ n→i(# vals) + i, is_indexkey(sk) ⊦ r -- sk ∈ putArray(vals, r, i, addarray(r, ty, j, st)) ↔ r -- sk ∈ addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st), sk = _length, sk = _type
⊦ is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type → (r -- sk ∈ addarray(r, ty, i, st) ↔ r -- sk ∈ st)
[[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 : ⊦ is_indexkey(sk) → ¬ is_fskey(sk)])], [EXTRATERMS : (st, mklist(initial_value(ty), i→n(i)) + vals, ty, sk, r)]]