| is_array(r, st), st ⊆ st0 ⊦ # getarray(r, st) = # getarray(r, st0) ∧ (∀ n. n < # getarray(r, st) → (getarray(r, st)[n]) = (getarray(r, st0)[n])) |
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]))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ n < # getarray(r, st) → (getarray(r, st)[n]) = st[r -- n→i(n) ']])]]