| ⊦ sks = [], st[r -- (sks + sk '), val] = st[st[r -- sks] .refval -- sk, val] |
∀ st, r, sk, val. sks0 = [] ∨ st[r -- (sks0 + sk '), val] = st[st[r -- sks0] .refval -- sk, val] ⊦ sk0 + sks0 = [], st[r -- ((sk0 + sks0) + sk '), val] = st[st[r -- (sk0 + sks0)] .refval -- sk, val]
[[CONCRETESIMPRULES : ([CSIMPGEN : storekeys generated by [], +;])]]