| ⊦ # ints > 1 ∧ ints .first = 1 → addarraymultlist(r, ty, st, refs, ints, ints0, i) = addarraymultlist (refs .first, ty, st[r -- (ints .first - 1) ', refval(refs .first)][r -- _type, typeval(mktype_from_dims(ty, i + n→i(# ints)))][r -- _length, intval(ints0 .first)], refs .rest, ints .rest, ints0 .rest, i) |