| ⊦ ¬ (∃ sks0, sks1. sks = sks0 + (sk + sks1) ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks2. sks2 + sk ⊑ sks0 → st[r -- sks2] .refval ≠ r0)) → (st[r0 -- sk, val][r -- sks]) = st[r -- sks] |
⊦ (st[r0 -- sk, val][r -- sks]) = st[r -- sks], ∃ sks0, sks1. sks = sks0 + sk ' + sks1 ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks2. sks2 + sk ' ⊑ sks0 → st[r -- sks2] .refval ≠ st[r -- sks0] .refval)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : list, storekeys, Last, ⊦ sks + sk = sks + sk '], [CSIMPNAMEDSEQ : list, storekeys, c, ⊦ sk + sks = sk ' + sks])]]