| # sks0 = 1 ⊦ sks0 = [], r0 -- sk ∈ st[r -- (sk0 ' + sks0), val] ↔ r0 -- sk ∈ st ∨ r0 = st[r -- (sk0 ' + sks0 .butlast)] .refval ∧ sk = sks0 .last |
⊦ # sks = 1 ↔ sks = sks .first + []
sks0 = sks0 .first + [] ⊦ sks0 = [], r0 -- sk ∈ st[r -- (sk0 ' + sks0), val] ↔ r0 -- sk ∈ st ∨ r0 = st[r -- (sk0 ' + sks0 .butlast)] .refval ∧ sk = sks0 .last
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (sks0)]]