| is_fskey(sk), 0 ≤ n→i(# vals) + i, 0 ≤ j, 0 ≤ i, i ≤ j, j ≤ n→i(# vals) + i ⊦ st[r -- sk] = (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)[r -- sk]), sk = _type, sk = _length |
⊦ is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type → (addarray(r, ty, vals, st)[r0 -- sk]) = st[r0 -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)], [CSIMPSEQ : ⊦ is_indexkey(sk) → ¬ is_fskey(sk)])], [EXTRATERMS : (sk, r, st, mklist(initial_value(ty), i→n(i)) + vals, ty, r)]]