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