| # vals = m + 1 ∧ # vals ≠ 0, _mode ∈ (addarray(r, ty, vals .butlast, st)[r -- n→i(m) ', vals .last][r -- _length, intval(n→i(# vals))]), ∀ st, ty, r, vals0. # vals0 < # vals → (_mode ∈ addarray(r, ty, vals0, st) → r = jvmref ∨ _mode ∈ st) ⊦ r = jvmref, vals = [], _mode ∈ st |
# 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) ⊦ vals = [], r = jvmref, _mode ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ n→i(m + n) = n→i(m) + n→i(n)], [CSIMPSEQ : ⊦ # vals = 0 ↔ vals = []])]]