| # vals = m + 1, _mode ∈ (addarray(r, ty, vals .butlast, st)[r -- n→i(m) ', vals .last][r -- _length, intval(n→i(m) + 1)]), ∀ st, ty, r, vals0. # vals0 < m + 1 → (_mode ∈ addarray(r, ty, vals0, st) → r = jvmref ∨ _mode ∈ st) ⊦ _mode ∈ addarray(r, ty, vals .butlast, st), vals = [], r = jvmref, _mode ∈ st |
⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ _mode ≠ r -- _length], [CSIMPSEQ : ⊦ _mode ∈ st[r -- i ', val] ↔ _mode ∈ st])], [EXTRATERMS : (intval(n→i(m) + 1), r -- _length, addarray(r, ty, vals .butlast, st) [r -- n→i(m) ', vals .last ], _mode)]]