| newref_list(0 + 1, st) = newref(st) + newref_list(0, st[newref(st) -- 0 ', noval]) ⊦ newref_list(1, st) = newref(st) ' |
newref_list(1, st) = newref(st) ' + newref_list(0, st[newref(st) -- 0 ', noval]), newref(st) ∈ newref_list(1, st) ⊦ newref_list(1, st) = newref(st) '
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPFORWARD : ⊦ r ' + refs = refs0 → r ∈ refs0], [CSIMPSEQ : ⊦ r + refs = r ' + refs])]]