| # vals = m + 1, i < 0, ∀ st, ty, r, i, vals0. # vals0 < m + 1 → (i < 0 → (addarray(r, ty, vals0, st)[r -- i ']) = st[r -- i ']) ⊦ vals = [], ((i = n→i(m) ⊃ vals .last; addarray(r, ty, vals .butlast, st)[r -- i '])) = st[r -- i '] |
i ≠ n→i(m), # vals = m + 1, i < 0, ∀ st, ty, r, i, vals0. # vals0 < m + 1 → (i < 0 → (addarray(r, ty, vals0, st)[r -- i ']) = st[r -- i ']) ⊦ (addarray(r, ty, vals .butlast, st)[r -- i ']) = st[r -- i '], vals = []
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ n→i(n) < 0])]]