| ¬ (r ≠ jvmref ∧ (¬ is_valid_ref(str, r, st) ∨ ¬ st[r -- _type] .type ≤ mkarraytype(ty))), validref(str, r, mkarraytype(ty), st) ⊦ r = jvmref, okarray(r, ty, st) |
is_arraytype(st[r -- _type] .type), st[r -- _type] .type .type ≤ ty, validref(str, r, mkarraytype(ty), st), is_array(str, r, st) ⊦ r = jvmref, okarray(r, ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_arraytype (st[r -- _type] .type) ∧ r ≠ jvmref → ( is_valid_ref(str, r, st) ↔ is_array(str, r, st))], [CSIMPSEQ : ⊦ ty0 ≤ mkarraytype(ty) ↔ is_arraytype(ty0) ∧ ty0 .type ≤ ty])]]