| rkvs = rkvs1 + rkv ', rkv = rk0 × val0, rk ∈ rkvs, ∀ val, st, rk, rkvs0. # rkvs0 < # rkvs → (rk ∈ rkvs0 → (st[rk, val][rkvs0]) = st[rkvs0]) ⊦ rkvs = [], (st[rk, val][rkvs1][rk0, val0]) = st[rkvs] |
⊦ st[rkvs + rkvs0] = (st[rkvs][rkvs0])
⊦ st[(rk × val) '] = st[rk, val]
rk ∈ rkvs1 + (rk0 × val0) ', ∀ val, st, rk, rkvs0. # rkvs0 < # (rkvs1 + (rk0 × val0) ') → (rk ∈ rkvs0 → (st[rk, val][rkvs0]) = st[rkvs0]) ⊦ (st[rk, val][rkvs1][rk0, val0]) = (st[rkvs1][rk0, val0])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (rkvs + rkvs0) + rkvs1 = rkvs + rkvs0 + rkvs1], [CSIMPSEQ : ⊦ rkvs + rkv ' ≠ []])]]