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