| ⊦ r ≠ r0 → (st[((r -- sk) × val) ' + rkvs][r0 -- sk0]) = (st[rkvs][r0 -- sk0]) |
⊦ st[(rk × val) ' + rkvs] = (st[rk, val][rkvs])
⊦ r = r0, (st[r -- sk, val][rkvs][r0 -- sk0]) = (st[rkvs][r0 -- sk0])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (rkvs + rkvs0) + rkvs1 = rkvs + rkvs0 + rkvs1])]]