| getdims(i0 ' + ints0) = i1 + ints ∧ getdims(i0 ' + ints0) ≠ [], 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 ' + ints)) ∧ ¬ 0 ∈ getdims(i0 ' + ints0) .butlast ∧ ¬ i1 < i0 |
⊦ getdims(ints) = [] ↔ ints = []
n→i(# refs) = countrefs(i0 ' + ints0), getdims(i0 ' + ints0) = i1 ' + ints, posints(ints0), 0 ≤ i0 ⊦ r -- sk ∈ addmultiarrays(refs, i0, [], mktype_from_dims(ty, countdims(i0 ' + ints0, i)), i1 ' + ints, st) ↔ r -- sk ∈ st, r ∈ refs, # refs = i→n(countrefs(i0 ' + ints)) ∧ ¬ 0 ∈ (i1 ' + ints) .butlast ∧ ¬ i1 < i0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i ∈ i0 ' ↔ i = i0], [CSIMPSEQ : ⊦ i ∈ ints + ints0 ↔ ¬ ¬ (i ∈ ints ∨ i ∈ ints0)], [CSIMPFORWARD : ⊦ i ' + ints = ints0 → i ∈ ints0], [CSIMPSEQ : ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1], [CSIMPSEQ : ⊦ i ' + ints ≠ []], [CSIMPSEQ : ⊦ i + ints = i ' + ints])]]