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