| n→i(# refs) = countrefs(i0 ' + ints0), posints(ints0), 0 ≤ i0 ⊦ addarrays(refs, ty, i0 ' + ints0, i, st) = addmultiarrays(refs, i0, [], mktype_from_dims(ty, countdims(i0 ' + ints0, i)), getdims(i0 ' + ints0), st) |
⊦ ints ≠ [] ∧ n→i(# refs) = countrefs(ints) ∧ posints(ints) → addarrays(refs, ty, ints, i, st) = addmultiarrays(refs, ints .first, [], mktype_from_dims(ty, countdims(ints, i)), getdims(ints), st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i ' + ints ≠ []], [CSIMPSEQ : ⊦ (i ' + ints) .first = i], [CSIMPSEQ : ⊦ ¬ ints + ints0 ≠ [] ↔ ints = [] ∧ ints0 = []], [CSIMPSEQ : ⊦ i ' ≠ []], [CSIMPSEQ : ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1], [CSIMPSEQ : ⊦ posints(i ' + ints) ↔ 0 ≤ i ∧ posints(ints)])], [EXTRATERMS : (st, i, i0 ' + ints0, ty, refs)]]