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