| ∀ st. is_newref_list(newref_list(m, st), st) ⊦ is_newref_list(newref_list(m +1, st), st) |
⊦ newref_list(n + 1, st) = newref(st) + newref_list(n, st[newref(st) -- 0 ', noval])
⊦ is_newref_list(r ' + refs, st) ↔ ¬ ¬ (¬ r ∈ refs ∧ newref(r, st) ∧ is_newref_list(refs, st))
⊦ newref(newref(st), st)
∀ st. is_newref_list(newref_list(m, st), st), ¬ is_newref_list(newref_list(m, st[newref(st) -- 0 ', noval]), st) ∨ newref(st) ∈ newref_list(m, st[newref(st) -- 0 ', noval]) ⊦
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ r + refs = r ' + refs], [CSIMPSEQ : ⊦ m +1 = m + 1])]]