| r -- _length ∈ st ∧ st ⊆ st0, is_array(r, st), st ⊆ st0, 0 ≤ st0[r -- _length] .intval, 0 ≤ st0[r -- _length] .intval ⊦ st0[r -- _length] .intval = st0[r -- _length] .intval ∧ (n < i→n(st0[r -- _length] .intval) → st[r -- n→i(n) '] = (getarray(r, st0)[n])) |
st ⊆ st0, is_array(r, st), r -- _length ∈ st, r ∈ st, n < i→n(st0[r -- _length] .intval), 0 < st0[r -- _length] .intval ⊦ st[r -- n→i(n) '] = (getarray(r, st0)[n]), st0[r -- _length] .intval = 0
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPSEQ : ⊦ i ≠ j → (i ≤ j ↔ i < j)], [CSIMPSEQ : ⊦ i→n(i) = 0 ↔ i = 0], [CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPFORWARD : ⊦ m < n → n ≠ 0])]]