| ⊦ (r0 ≠ st[r -- sks] .refval ∨ sk ≠ sk0) ∧ sks ≠ [] → (st[r -- (sks + sk '), val][r0 -- sk0]) = st[r0 -- sk0] |
⊦ sk ≠ sk0 → (st[r -- (sks + sk '), val][r0 -- sk0]) = st[r0 -- sk0]
⊦ r0 = st[r -- sks] .refval, sks = [], (st[r -- (sks + sk0 '), val][r0 -- sk0]) = st[r0 -- sk0]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1])]]