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