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