| rk ∈ (st ∪ st1)[rk0, val0], rk ∈ st1[rk0, val0], ∀ rk, st, val. rk ∈ st ∪ st1 ∧ (st ∪ st1)[rk] = val ↔ ¬ rk ∈ st1 ∧ rk ∈ st ∧ st[rk] = val ∨ rk ∈ st1 ∧ st1[rk] = val ⊦ (rk = rk0 ∨ rk ∈ st1) ∧ ((rk = rk0 ⊃ val0; st1[rk])) = ((rk = rk0 ⊃ val0; (st ∪ st1)[rk])) |
rk ∈ (st ∪ st1)[rk0, val0], rk ∈ st1[rk0, val0], ∀ rk, st, val. rk ∈ st ∪ st1 ∧ (st ∪ st1)[rk] = val ↔ ¬ rk ∈ st1 ∧ rk ∈ st ∧ st[rk] = val ∨ rk ∈ st1 ∧ st1[rk] = val ⊦ ((rk = rk0 ⊃ val0; st1[rk])) = ((rk = rk0 ⊃ val0; (st ∪ st1)[rk]))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st])]]