| ⊦ r = r0, sks = [], (addobj(r, class, fis, st)[r0 -- (sk ' + sks)]) = (addobj(r, class, fis, st)[st[r0 -- sk] .refval -- sks]) |
⊦ sks ≠ [] → st[r -- (sk ' + sks)] = st[st[r -- sk] .refval -- sks]
⊦ r ≠ r0 → (addobj(r, class1, fis, st)[r0 -- sk]) = st[r0 -- sk]
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (sks, sk, r0, addobj(r, class, fis, st))]]