| ⊦ r = r0, ∀ rk. (rk ∈ st[r -- sk, val] -- r0 ↔ rk ∈ (st -- r0)[r -- sk, val]) ∧ (st[r -- sk, val] -- r0)[rk] = ((st -- r0)[r -- sk, val][rk]) |
⊦ r = r0, (rk ∈ st[r -- sk, val] -- r0 ↔ rk = r -- sk ∨ rk ∈ st -- r0) ∧ (st[r -- sk, val] -- r0)[rk] = ((rk = r -- sk ⊃ val; (st -- r0)[rk]))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st])]]