| ⊦ addarray(r, ty, mklist(initial_value(ty), 0), st) = (addarray(r, initial_value(ty), n→i(0), st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(n→i(0))]) |
⊦ addarray(r, val, 0, st) = st
⊦ addarray(r, ty, [], st) = (st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(0)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mklist(val, 0) = []])]]