| rk ∈ rkvs1 ∨ rk ∈ (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]) |
rk ∈ rkvs1 ∨ rk = rk0, ∀ 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 : ⊦ rk ∈ (rk0 × val) ' ↔ rk = rk0])]]