| ⊦ getarray(r, addarray(r, ty, vals, st)) = vals |
⊦ getarray(r, st) = getarray(r, 0, st[r -- _length] .intval, st)
⊦ (addarray(r, ty, vals, st)[r -- _length]) = intval(n→i(# vals))
⊦ getarray(r, 0, n→i(# vals), addarray(r, ty, vals, st)) = vals
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ intval(i) .intval = i])], [EXTRATERMS : (addarray(r, ty, vals, st), r)]]