| ∀ r, st, r0, sk, val. sks0 = [] ∨ (r -- sks0 ∈ st[r0 -- sk, val] ↔ r -- sks0 ∈ st) ∨ sk ∈ sks0 ⊦ sk0 + sks0 = [], r -- (sk0 + sks0) ∈ st[r0 -- sk, val] ↔ r -- (sk0 + sks0) ∈ st, sk ∈ sk0 + sks0 |
⊦ r -- sk ' ∈ st ↔ r -- sk ∈ st
∀ r, st, r0, sk, val. (r -- sks0 ∈ st[r0 -- sk, val] ↔ r -- sks0 ∈ st) ∨ sk ∈ sks0 ⊦ r -- (sk0 ' + sks0) ∈ st[r0 -- sk, val] ↔ r -- (sk0 ' + sks0) ∈ st, sk = sk0, sks0 = [], sk ∈ sks0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st], [CSIMPSEQ : ⊦ sks + [] = sks], [CSIMPSEQ : ⊦ ¬ sk ∈ sk0 ' + sks ↔ sk ≠ sk0 ∧ ¬ sk ∈ sks], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ sk ' + sks ≠ []], [CSIMPSEQ : ⊦ sk + sks = sk ' + sks])]]