| 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])) |
⊦ rk ∈ st ∧ st ⊆ st1 → st[rk] = st1[rk]
⊦ ¬ r -- _length ∈ st → ¬ is_array(r, st)
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]))
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (r -- _length, st, st0)]]