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