| is_array(r, st), st ⊆ st0 ⊦ # getarray(r, st) = # getarray(r, st0) ∧ (n < # getarray(r, st) → st[r -- n→i(n) '] = (getarray(r, st0)[n])) |
⊦ 0 ≤ st[r -- _length] .intval → # getarray(r, st) = i→n(st[r -- _length] .intval)
⊦ is_array(r, st) → ¬ st[r -- _length] .intval < 0
0 ≤ st[r -- _length] .intval, is_array(r, st), st ⊆ st0 ⊦ i→n(st[r -- _length] .intval) = # getarray(r, st0) ∧ (n < i→n(st[r -- _length] .intval) → st[r -- n→i(n) '] = (getarray(r, st0)[n]))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i])], [EXTRATERMS : (st, r)]]