| st[r -- _type] .type = mkarraytype(ty), 0 ≤ sk .index, sk .index < n→i(# getarray(r, st)), is_indexkey(sk), is_array(r, st) ⊦ getarray(r, st) = [], (r -- sk ∈ addarray(r, ty, getarray(r, st), st) → r -- sk ∈ st) ∧ (addarray(r, ty, getarray(r, st), st)[r -- sk]) = st[r -- sk] |
sk = i ', st[r -- _type] .type = mkarraytype(ty), 0 ≤ i, i < n→i(# getarray(r, st)), is_indexkey(sk), is_array(r, st) ⊦ getarray(r, st) = [], (r -- sk ∈ addarray(r, ty, getarray(r, st), st) → r -- sk ∈ st) ∧ (addarray(r, ty, getarray(r, st), st)[r -- sk]) = st[r -- sk]
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_indexkey(sk) → (i = sk .index ↔ sk = i ')])], [EXTRATERMS : (sk, i)]]