| r ≠ st[st[r -- sk] .refval -- sks] .refval ∨ sk0 ≠ sk ⊦ (st[st[st[r -- sk0] .refval -- sks] .refval -- sk, val][st[r -- sk0] .refval -- (sks + sk ' + sks1)]) = st[st[r -- sk0] .refval -- (sks + sk ' + sks1)], st[r -- (sk0 ' + sks)] .refval = st[st[r -- sk0] .refval -- sks] .refval, ∃ sks2, sks3. sk0 ' + sks + sk ' + sks1 = sks2 + sk ' + sks3 ∧ st[r -- sks2] .refval = st[st[r -- sk0] .refval -- sks] .refval |
⊦ sks ≠ [] → st[r -- (sk ' + sks)] = st[st[r -- sk] .refval -- sks]
⊦ st[r -- []] = refval(r)
⊦ st[r -- sk '] = st[r -- sk]
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : javavalue, , sel-09, ⊦ refval(r) .refval = r], [CSIMPNAMEDSEQ : list, storekeys, Nil, ⊦ [] + sks = sks], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPNAMEDSEQ : list, storekeys, app, ⊦ sks + [] = sks])], [EXTRATERMS : (sks, sk0, r, st)]]