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