| # (i0 ' + getdims(ints0)) > 1 ∧ (i0 ' + getdims(ints0)) .first > 0, 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], countrefs(i0 ' + ints0) = 1 + (i0 ' + getdims(ints0)) .first * countrefs((i0 ' + getdims(ints0)) .rest) ∧ ¬ 0 ∈ (i0 ' + getdims(ints0)) .butlast |
⊦ getdims(ints) = [] ↔ ints = []
⊦ countrefs(getdims(ints)) = countrefs(ints)
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 : ([CSIMPSEQ : ⊦ (i ' + ints) .rest = ints], [CSIMPSEQ : ⊦ i > j ↔ j < i], [CSIMPSEQ : ⊦ (i ' + ints) .first = i], [CSIMPSEQ : ⊦ # ints = 0 ↔ ints = []], [CSIMPSEQ : ⊦ m + n = 1 ↔ m = 0 ∧ n = 1 ∨ n = 0 ∧ m = 1], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + 1 ≠ 0], [CSIMPSEQ : ⊦ 1 < m ↔ ¬ (m = 0 ∨ m = 1)], [CSIMPSEQ : ⊦ m > n ↔ n < m], [CSIMPSEQ : ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1], [CSIMPSEQ : ⊦ # i ' = 0 +1], [CSIMPSEQ : ⊦ # (ints + ints0) = # ints + # ints0])]]