| sks1 = [], sks1 = [] ∨ (∀ sks0, st, r. sks0 = [] ∨ st[r -- (sks1 + sks0)] = st[st[r -- sks1] .refval -- sks0]) ⊦ sks0 = [], st[r -- ((sk ' + sks1) + sks0)] = st[st[r -- (sk ' + sks1)] .refval -- sks0] |
⊦ st[r -- sk '] = st[r -- sk]
⊦ sks0 = [], st[r -- (sk ' + sks0)] = st[st[r -- sk] .refval -- sks0]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sks + [] = sks], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ [] + sks = sks])]]