| posints(ints), r ∈ st ⊦ ints ≠ [], (addarrays(newref_list(i→n(countrefs(ints)), st), ty, ints, i, st)[r -- sk]) = st[r -- sk] |
⊦ countrefs([]) = 1
r ∈ st ⊦ (addarrays(newref(st) ', ty, [], i, st)[r -- sk]) = st[r -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ posints([])], [CSIMPSEQ : ⊦ newref_list(1, st) = newref(st) '])]]