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