| ¬ vals ≠ [], n→i(# vals) ≤ i, ∀ st, ty, r, i, vals0. # vals0 < # vals → (n→i(# vals0) ≤ i → (addarray(r, ty, vals0, st)[r -- i ']) = st[r -- i ']) ⊦ (addarray(r, ty, vals, st)[r -- i ']) = st[r -- i '] |
0 ≤ i, ∀ st, ty, r, i, vals0. # vals0 < # [] → (n→i(# vals0) ≤ i → (addarray(r, ty, vals0, st)[r -- i ']) = st[r -- i ']) ⊦ (addarray(r, ty, [], st)[r -- i ']) = st[r -- i ']
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPSEQ : ⊦ # [] = 0])]]