| ∀ sks0, st, r. sks1 = [] ∨ sks0 = [] ∨ st[st[r -- sks1] .refval -- sks0] = st[r -- (sks1 + sks0)] ⊦ sk + sks1 = [], sks0 = [], st[st[r -- (sk + sks1)] .refval -- sks0] = st[r -- ((sk + sks1) + sks0)] |
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)]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ sk ' + sks ≠ []], [CSIMPSEQ : ⊦ sk + sks = sk ' + sks])]]