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