| ⊦ sks0 = [], (st[r -- (sk ' + sk0 '), val][st[r -- sk] .refval -- (sk0 ' + sks0)]) = (st[r -- (sk ' + sk0 '), val][val .refval -- sks0]) |
⊦ st[r -- (sk ' + sk0 '), val] = st[st[r -- sk] .refval -- sk0, val]
⊦ sks0 = [], (st[st[r -- sk] .refval -- sk0, val][st[r -- sk] .refval -- (sk0 ' + sks0)]) = (st[st[r -- sk] .refval -- sk0, val][val .refval -- sks0])
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (val, sk0, sk, r, st)]]