| rk ≠ rk0, rk ∈ (st ∪ 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 ⊦ st1[rk] = ((rk = rk0 ⊃ val0; (st ∪ st1)[rk])), rk ∈ st |
rk ∈ st ∪ st1, ∀ rk, st, val. rk ∈ st ∪ st1 ∧ (st ∪ st1)[rk] = val ↔ ¬ rk ∈ st1 ∧ rk ∈ st ∧ st[rk] = val ∨ rk ∈ st1 ∧ st1[rk] = val ⊦ rk = rk0, st1[rk] = (st ∪ st1)[rk], rk ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st])]]