| ∀ rk, rk0, st, val. rk = rk0 ∨ (st[rk, val][rkvs0][rk0]) = (st[rkvs0][rk0]) ⊦ rk = rk0, (st[rk, val][rkv + rkvs0][rk0]) = (st[rkv + rkvs0][rk0]) |
⊦ st[rkvs + rkvs0] = (st[rkvs][rkvs0])
⊦ st[rkv '] = st[rkv .1, rkv .2]
∀ rk, rk0, st, val. rk = rk0 ∨ (st[rk, val][rkvs0][rk0]) = (st[rkvs0][rk0]) ⊦ rk = rk0, (st[rk, val][rkv .1, rkv .2][rkvs0][rk0]) = (st[rkv .1, rkv .2][rkvs0][rk0])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (rkvs + rkvs0) + rkvs1 = rkvs + rkvs0 + rkvs1], [CSIMPSEQ : ⊦ rkv + rkvs = rkv ' + rkvs])]]