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