| ⊦ (st[r -- sk, val] -- r0)[rk] = ((rk = r -- sk ⊃ val; (st -- r0)[rk])), r = r0 |
⊦ r ≠ r0 → (st -- r)[r0 -- sk0] = st[r0 -- sk0]
rk ≠ r -- sk ⊦ (st[r -- sk, val] -- r0)[rk] = (st -- r0)[rk], r = r0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))])]]