| r -- sk ∈ addarray(r, ty, i0 + j + 1, st), 0 ≤ j, 0 ≤ i0, 0 ≤ i0 + j, is_indexkey(sk) ⊦ r -- sk ∈ addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i0)), st), sk = j ', sk = _type, sk = _length |
⊦ r ∈ addarray(r, ty0, i, st)
is_indexkey(sk), 0 ≤ i0 + j, 0 ≤ i0, 0 ≤ j, r -- sk ∈ addarray(r, ty, i0 + j + 1, st) ⊦ sk = _length, sk = _type, sk = j ', r -- sk ∈ addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i0)), st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])]]