| 0 ≤ n→i(# vals1) + j ∧ 0 ≤ j ∧ j + n→i(# vals1) ≤ n→i(# vals1) + j, 0 ≤ j, 0 ≤ j + n→i(# vals1), ∀ st, val, r, j, i, vals0. # vals0 < # (vals1 + val0 ') → ( 0 ≤ i ∧ 0 ≤ j ∧ i ≤ j + n→i(# vals0) ∧ j ≤ i ∧ 0 ≤ j + n→i(# vals0) → putArray(vals0, r, j, addarray(r, val, i, st)) = addarray(r, mklist(val, i→n(j)) + vals0, 0, st)) ⊦ (putArray(vals1, r, j, addarray(r, val, n→i(# vals1) + j, st))[r -- (n→i(# vals1) + j) ', val][r -- (j + n→i(# vals1)) ', val0]) = (addarray(r, mklist(val, i→n(j)) + vals1, 0, st)[r -- (n→i(# vals1) + j) ', val0]) |
0 ≤ j, 0 ≤ j + n→i(# vals1), ∀ st, val, r, j, i, vals0. # vals0 < # (vals1 + val0 ') → ( 0 ≤ i ∧ 0 ≤ j ∧ i ≤ j + n→i(# vals0) ∧ j ≤ i ∧ 0 ≤ j + n→i(# vals0) → putArray(vals0, r, j, addarray(r, val, i, st)) = addarray(r, mklist(val, i→n(j)) + vals0, 0, st)) ⊦ (putArray(vals1, r, j, addarray(r, val, n→i(# vals1) + j, st))[r -- (n→i(# vals1) + j) ', val0]) = (addarray(r, mklist(val, i→n(j)) + vals1, 0, st)[r -- (n→i(# vals1) + j) ', val0])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i ≤ i], [CSIMPSEQ : ⊦ i + j ≤ i0 + j ↔ i ≤ i0], [CSIMPSEQ : ⊦ i ≤ 0 ∧ 0 ≤ j → i ≤ j], [CSIMPSEQ : ⊦ (st[rk, val][rk, val0]) = st[rk, val0]], [CSIMPSEQ : ⊦ i + j = j + i])]]