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