| vals ≠ [], ∀ st, ty, r, vals0. # vals0 < # vals → (true → addarray(r, ty, vals0, st) .refs = st .refs ++ r) ⊦ (addarray(r, ty, vals .butlast, st)[r -- n→i((# vals) -1) ', vals .last][r -- _length, intval(n→i(# vals))]) .refs = st .refs ++ r |
∀ st, ty, r, vals0. # vals0 < # vals → (true → addarray(r, ty, vals0, st) .refs = st .refs ++ r) ⊦ vals = [], addarray(r, ty, vals .butlast, st) .refs ++ r = st .refs ++ r
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ rset ++ r ++ r = rset ++ r], [CSIMPSEQ : ⊦ (r -- sk) .ref = r], [CSIMPSEQ : ⊦ st[rk, val] .refs = st .refs ++ rk .ref], [CSIMPSEQ : ⊦ n -1 = n - 1])]]