| ⊦ r1 -- sk0 = r -- sk, r = r0, (st[r -- sk, val] -- r0)[r1 -- sk0] = (st -- r0)[r1 -- sk0] |
r1 ≠ r ∨ sk0 ≠ sk ⊦ r = r0, (st[r -- sk, val] -- r0)[r1 -- sk0] = (st -- r0)[r1 -- sk0]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]