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