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