| ∀ sk, sk0, st, r, val, r0. sk = sk0 ∨ (st[r -- (sks0 + sk '), val][r0 -- sk0]) = st[r0 -- sk0] ⊦ sk = sk0, (st[r -- ((sk1 + sks0) + sk '), val][r0 -- sk0]) = st[r0 -- sk0] |
∀ sk, sk0, st, r, val, r0. sk = sk0 ∨ (st[r -- (sks0 + sk '), val][r0 -- sk0]) = st[r0 -- sk0] ⊦ sk = sk0, (st[r -- ((sk1 ' + sks0) + sk '), val][r0 -- sk0]) = st[r0 -- sk0]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk + sks = sk ' + sks])]]