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