| # refs = i→n(countrefs(ints)), n→i(# refs) = countrefs(ints), 0 ≤ i, posints(ints) ⊦ ints = [], (addmultiarrays(refs, ints .first, [], mktype_from_dims(ty, countdims(ints, i)), getdims(ints), st)[r -- sk]) = st[r -- sk], r ∈ refs |
ints = i0 + ints0, # refs = i→n(countrefs(ints)), n→i(# refs) = countrefs(ints), 0 ≤ i, posints(ints) ⊦ ints = [], (addmultiarrays(refs, i0, [], mktype_from_dims(ty, countdims(ints, i)), getdims(ints), st)[r -- sk]) = st[r -- sk], r ∈ refs
[[CONCRETESIMPRULES : ([CSIMPELIM : ints ≠ [] ⊦ i = ints .first ∧ ints0 = ints .rest ↔ ints = i + ints0])], [EXTRATERMS : (ints, i0, ints0)]]