| ¬ newref_list(1 + m, st[newref(st) -- 0 ', noval]) ≠ [], ∀ st. newref_list(m + 1, st) .butlast = newref_list(m, st) ⊦ (newref(st) ' + newref_list(1 + m, st[newref(st) -- 0 ', noval])) .butlast = newref(st) ' + newref_list(m, st[newref(st) -- 0 ', noval]) |
⊦ newref_list(n, st) = [] ↔ n = 0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + 1 ≠ 0])]]