| ⊦ r ∈ addarray(r, ty0, i, st) |
⊦ addarray(r, ty, i, st) = addarray(r, initial_value(ty), i, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)])
⊦ r ∈ addarray(r, val, i, st) ↔ 0 < i ∨ r ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ∈ st[r0 -- sk, val] ↔ r = r0 ∨ r ∈ st], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i])]]