| 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 = [] |
ints = i0 + ints0, posints(ints), r ∈ st, i < 0 ⊦ (addmultiarrays(newref_list(i→n(countrefs(ints)), st), i0, [], mktype_from_dims(ty, countdims(ints, i)), getdims(ints), st)[r -- sk]) = st[r -- sk], ints = []
[[CONCRETESIMPRULES : ([CSIMPELIM : ints ≠ [] ⊦ i = ints .first ∧ ints0 = ints .rest ↔ ints = i + ints0])], [EXTRATERMS : (ints, i0, ints0)]]