| newref_list(m, st[newref(st) -- 0 ', noval][newref(st[newref(st) -- 0 ', noval]) -- 0 ', noval]) .last = newref(st), ∀ st0. ¬ (newref(st0) ' + newref_list(m, st0[newref(st0) -- 0 ', noval])) .last ∈ newref_list(m, st0) ⊦ m = 0, newref(st) ∈ newref_list(m, st[newref(st) -- 0 ', noval]) |
⊦ r ∈ newref_list(n, st) → newref(r, st)
⊦ newref_list(n, st) = [] ↔ n = 0
⊦ newref(r, st[r0 -- sk, val]) ↔ r ≠ r0 ∧ newref(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ refs .last ∈ refs ↔ refs ≠ []])], [EXTRATERMS : (newref_list (m, st[newref(st) -- 0 ', noval] [newref(st[newref(st) -- 0 ', noval]) -- 0 ', noval ]) .last, m, st[newref(st) -- 0 ', noval] [newref(st[newref(st) -- 0 ', noval]) -- 0 ', noval ])]]