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