| ints ≠ [] ∧ n→i(# newref_list(i→n(countrefs(ints)), st)) = countrefs(ints) ∧ posints(ints), posints(ints), r ∈ st, i < 0 ⊦ (addmultiarrays(newref_list(i→n(countrefs(ints)), st), ints .first, [], mktype_from_dims(ty, countdims(ints, i)), getdims(ints), st)[r -- sk]) = st[r -- sk] |
⊦ abs(countrefs(ints)) = countrefs(ints)
posints(ints), r ∈ st, i < 0 ⊦ (addmultiarrays(newref_list(i→n(countrefs(ints)), st), ints .first, [], mktype_from_dims(ty, countdims(ints, i)), getdims(ints), st)[r -- sk]) = st[r -- sk], ints = []
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ n→i(i→n(i)) = abs(i)], [CSIMPSEQ : ⊦ # newref_list(n, st) = n])]]