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