| r ≠ jvmref ∧ r -- _type ∈ st ∧ is_typevalue(st[r -- _type]) ∧ is_arraytype(st[r -- _type] .type) ∧ okarray(r, st[r -- _type] .type .type, st), st ⊆ st1 ⊦ is_array(r, st1) |
⊦ st ⊆ st0 ∧ okarray(r, ty, st) → okarray(r, ty, st0)
⊦ okarray(r, ty, st) → r ≠ jvmref ∧ r ∈ st
okarray(r, st[r -- _type] .type .type, st1), r ∈ st, st ⊆ st1, okarray(r, st[r -- _type] .type .type, st), is_arraytype(st[r -- _type] .type), is_typevalue(st[r -- _type]), r -- _type ∈ st, r ∈ st1 ⊦ r = jvmref, is_array(r, st1)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])]]