| # st .refs = # st0 .refs, rk .ref ∈ st0 .refs, rk .ref ∈ st .refs, r ∈ st0, rk ∈ st -- rk .ref, rk ∈ st → rk ∈ st0 ∧ st[rk] = st0[rk], ∀ rk. rk ∈ st → rk ∈ st0 ∧ st[rk] = st0[rk], ∀ r, st0, st1. # st1 .refs < # st .refs → (# st1 .refs = # st0 .refs ∧ r ∈ st0 ∧ st1 ⊆ st0 → r ∈ st1) ⊦ r = rk .ref, st0 = ∅, st = ∅, r ∈ st, rk ∈ st0 -- rk .ref ∧ (st -- rk .ref)[rk] = (st0 -- rk .ref)[rk] |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk ∈ st -- r0 ↔ r ≠ r0 ∧ r -- sk ∈ st], [CSIMPELIM : ⊦ r = rk .ref ∧ sk = rk .key ↔ rk = r -- sk])], [EXTRATERMS : (rk, r0, sk)]]