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