| (addarraymultlist (refs .first, ty, addarraymultlist (r, ty, st[r -- i1 ', refval(refs .first)][r -- _type, typeval(mktype_from_dims(ty, (1 + n→i(# ints2)) + i))][r -- _length, intval(ints0 .first)], refs .rest, i1 ' + ints2, ints0, i), restn(i→n(i1 * (countrefs2(ints2) + 1)), refs .rest), ints2, ints0 .rest, i) [_mode ] ) = (addarraymultlist (r, ty, st[r -- i1 ', refval(refs .first)][r -- _type, typeval(mktype_from_dims(ty, (1 + n→i(# ints2)) + i))][r -- _length, intval(ints0 .first)], refs .rest, i1 ' + ints2, ints0, i) [_mode ] ), (~1) ≤ i1, 0 < i1, ∀ i, ints0, refs, st, ty, r, ints1. ints#(ints1) < ints#((i1 + 1) + ints2) → (true → (addarraymultlist(r, ty, st, refs, ints1, ints0, i)[_mode]) = st[_mode]) ⊦ ints2 = [], (addarraymultlist (refs .first, ty, addarraymultlist (r, ty, st[r -- i1 ', refval(refs .first)][r -- _type, typeval(mktype_from_dims(ty, (1 + n→i(# ints2)) + i))][r -- _length, intval(ints0 .first)], refs .rest, i1 ' + ints2, ints0, i), restn(i→n(i1 * (countrefs2(ints2) + 1)), refs .rest), ints2, ints0 .rest, i) [_mode ] ) = st[_mode] |
(addarraymultlist (refs .first, ty, addarraymultlist (r, ty, st[r -- i1 ', refval(refs .first)][r -- _type, typeval(mktype_from_dims(ty, (1 + n→i(# ints2)) + i))][r -- _length, intval(ints0 .first)], refs .rest, i1 ' + ints2, ints0, i), restn(i→n(i1 * (countrefs2(ints2) + 1)), refs .rest), ints2, ints0 .rest, i) [_mode ] ) = (addarraymultlist (r, ty, st[r -- i1 ', refval(refs .first)][r -- _type, typeval(mktype_from_dims(ty, (1 + n→i(# ints2)) + i))][r -- _length, intval(ints0 .first)], refs .rest, i1 ' + ints2, ints0, i) [_mode ] ), (~1) ≤ i1, 0 < i1, ∀ i, ints0, refs, st, ty, r, ints1. ints#(ints1) < ints#((i1 + 1) + ints2) → (true → (addarraymultlist(r, ty, st, refs, ints1, ints0, i)[_mode]) = st[_mode]) ⊦ ints2 = [], (addarraymultlist (r, ty, st[r -- i1 ', refval(refs .first)][r -- _type, typeval(mktype_from_dims(ty, (1 + n→i(# ints2)) + i))][r -- _length, intval(ints0 .first)], refs .rest, i1 ' + ints2, ints0, i) [_mode ] ) = st[_mode]
[[CONCRETESIMPRULES : ()]]