| r ∈ st, r ∈ newref(st) + newref_list(m, st[newref(st) -- 0 ', noval]), ∀ r0, st0. ¬ r0 ∈ st0 ∨ ¬ r0 ∈ newref_list(m, st0) ⊦ |
⊦ ¬ newref(st) ∈ st
r ∈ st, r ∈ newref_list(m, st[newref(st) -- 0 ', noval]), ∀ r0, st0. ¬ r0 ∈ st0 ∨ ¬ r0 ∈ newref_list(m, st0) ⊦ r = newref(st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ r ∈ r0 ' ↔ r = r0], [CSIMPSEQ : ⊦ r ∈ refs + refs0 ↔ ¬ ¬ (r ∈ refs ∨ r ∈ refs0)], [CSIMPSEQ : ⊦ r + refs = r ' + refs])]]