| ¬ (r ≠ jvmref ∧ (¬ is_valid_ref(str, r, st) ∨ ¬ st[r -- _type] .type ≤ mkarraytype(ty))), is_primtype(ty) ⊦ junkrefs(str, r ' + refs, mkarraytype(ty), st) ↔ r ≠ jvmref ∧ ¬ okarray(r, ty, st) |
⊦ ¬ junkrefs(str, jvmref ' + refs, ty, st)
is_arraytype(st[r -- _type] .type), st[r -- _type] .type .type ≤ ty, is_primtype(ty), is_array(str, r, st) ⊦ r = jvmref, junkrefs(str, r ' + refs, mkarraytype(ty), st) ↔ ¬ 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 : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ ty0 ≤ mkarraytype(ty) ↔ is_arraytype(ty0) ∧ ty0 .type ≤ ty])]]