| 0 < 2 + m, ∀ st. newref_list(m + 1, st) .butlast = newref_list(m, st) ⊦ (newref(st) + newref_list((2 + m) -1, st[newref(st) -- 0 ', noval])) .butlast = newref(st) ' + newref_list(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])
[[CONCRETESIMPRULES : ([CSIMPSEQ : n < n0 ⊦ ((* n)) ≠ m0 + ((* n0))], [CSIMPSEQ : ⊦ 0 < n ↔ n ≠ 0], [CSIMPSEQ : ⊦ r + refs = r ' + refs], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ n ≤ m → m + n0 - n = (m - n) + n0], [CSIMPSEQ : ⊦ n -1 = n - 1])]]