| ints = i0 + ints0, posints(ints), r ∈ st, i < 0 ⊦ (addmultiarrays(newref_list(i→n(countrefs(ints)), st), i0, [], mktype_from_dims(ty, countdims(ints, i)), getdims(ints), st)[r -- sk]) = st[r -- sk], ints = [] |
0 ≤ i0, posints(ints0), i < 0, r ∈ st ⊦ (addmultiarrays(newref_list(i→n(countrefs(i0 ' + ints0)), st), i0, [], mktype_from_dims(ty, countdims(i0 ' + ints0, i)), getdims(i0 ' + ints0), st) [r -- sk ] ) = st[r -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i < 0 ∧ 0 ≤ j → i < j], [CSIMPFORWARD : ⊦ i < j ∧ j ≤ j0 → i < j0], [CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPSEQ : ⊦ posints(i ' + ints) ↔ 0 ≤ i ∧ posints(ints)], [CSIMPSEQ : ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1], [CSIMPSEQ : ⊦ i ' + ints ≠ []], [CSIMPSEQ : ⊦ i + ints = i ' + ints])]]