⊦ r ∈ st ↔ (∃ sk. r -- sk ∈ st)
∃ sk. r -- sk ∈ addarray(r0, val, i, st) ⊦ r = r0, r ∈ st
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (addarray(r0, val, i, st), r)]]