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