| ¬ newref(st[newref(st) -- 0 ', noval]) -- sk ∈ st[newref(st) -- 0 ', noval], newref(st[newref(st) -- 0 ', noval]) -- sk ∈ st, newref(st[newref(st) -- 0 ', noval]) ∈ st ⊦ ∃ r, r0, r1. newref_list(3, st) = r ' + r0 ' + r1 ' ∧ newref(r1, st) ∧ newref(r, st) ∧ newref(r0, st) ∧ r ≠ r0 ∧ r ≠ r1 ∧ r0 ≠ r1 |
⊦ rk ≠ rk0 → (rk ∈ st[rk0, val] ↔ rk ∈ st)
⊦ r ∈ st → newref(st) ≠ r
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0])], [EXTRATERMS : (noval, newref(st) -- 0 ', st, newref(st[newref(st) -- 0 ', noval]) -- sk)]]