| ¬ ( ¬ 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 |
⊦ getdims(ints) = [] ↔ ints = []
⊦ ¬ posints(getdims(ints)) ↔ false
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, # refs = i→n(countrefs(i0 ' + getdims(i0 ' + ints0) .rest)) ∧ ¬ 0 ∈ getdims(i0 ' + ints0) .butlast ∧ ¬ getdims(i0 ' + ints0) .first < i0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i ≤ j → (¬ ¬ j < i ↔ false)], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1], [CSIMPSEQ : ⊦ i ' ≠ []], [CSIMPSEQ : ⊦ ¬ ints + ints0 ≠ [] ↔ ints = [] ∧ ints0 = []])]]