| ∀ st0, r1, sk1, val0, r2. (st0[r1 -- sk1, val0][r2 -- sks0]) ≠ st0[r2 -- sks0] → (∃ sks, sks1. sks0 = sks + sk1 ' + sks1 ∧ st0[r2 -- sks] .refval = r1 ∧ (∀ sks2. sks2 + sk1 ' ⊑ sks → st0[r2 -- sks2] .refval ≠ st0[r2 -- sks] .refval)) ⊦ sks0 = [], (st[r0 -- sk, val][val .refval -- sks0]) = st[st[r0 -- sk] .refval -- sks0], ∃ sks, sks1. sk ' + sks0 = sks + sk ' + sks1 ∧ st[r0 -- sks] .refval = r0 ∧ (∀ sks2. sks2 + sk ' ⊑ sks → st[r0 -- sks2] .refval ≠ st[r0 -- sks] .refval) |
⊦ st[r -- []] = refval(r)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : list, storekeys, Nil, ⊦ [] + sks = sks], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPNAMEDSEQ : list, storekeys, app-01, ⊦ sks + sks0 = sks + sks1 ↔ sks0 = sks1], [CSIMPNAMEDSEQ : javavalue, , sel-09, ⊦ refval(r) .refval = r], [CSIMPNAMEDSEQ : list-last, storekeys, eq-01-01, ⊦ sks ⊑ [] ↔ sks = []], [CSIMPNAMEDSEQ : list, storekeys, app-02-ant, ⊦ ¬ sks + sks0 ≠ [] ↔ sks = [] ∧ sks0 = []], [CSIMPNAMEDSEQ : list, storekeys, e, ⊦ sk ' ≠ []])], [EXTRATERMS : ([], sks0)]]