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