| m < n ⊦ ¬ r ∈ refs ∧ # refs = n → (addarray(r, ty, vals, st)[refs[m] -- sk]) = st[refs[m] -- sk] |
m < # refs ⊦ (addarray(r, ty, vals, st)[refs[m] -- sk]) = st[refs[m] -- sk], refs = [], r ∈ refs
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # refs = 0 ↔ refs = []], [CSIMPFORWARD : ⊦ m < n → n ≠ 0])]]