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