| j ≤ n→i(# vals) + i, i ≤ j, 0 ≤ i, 0 ≤ j ⊦ putArray(vals, r, i, addarray(r, ty, j, st)) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals + [], st)[r -- _length, intval(j)]) |
0 ≤ n→i(# vals) + i, 0 ≤ j, 0 ≤ i, i ≤ j, j ≤ n→i(# vals) + i ⊦ putArray(vals, r, i, addarray(r, ty, j, st)) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)[r -- _length, intval(j)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ 0 ≤ n→i(n)], [CSIMPSEQ : ⊦ i ≤ i + j ↔ 0 ≤ j], [CSIMPFORWARD : ⊦ j ≤ j0 ∧ j0 ≤ j1 → j ≤ j1], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1], [CSIMPSEQ : ⊦ vals + [] = vals])]]