| ⊦ r1 -- sk0 ∈ st[r -- sk, val] -- r0 ↔ r1 -- sk0 = r -- sk ∨ r1 -- sk0 ∈ st -- r0, r = r0 |
⊦ r -- sk ∈ st -- r0 ↔ r ≠ r0 ∧ r -- sk ∈ st
⊦ r -- sk ∈ st -- r0 ↔ ¬ ¬ (r ≠ r0 ∧ r -- sk ∈ st)
r1 = r ∧ sk0 = sk ∨ r1 ≠ r0 ∧ r1 -- sk0 ∈ st, r1 = r0 ∨ (r1 ≠ r ∨ sk0 ≠ sk) ∧ ¬ r1 -- sk0 ∈ st ⊦ r = r0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st])]]