| ¬ (r ≠ jvmref ∧ (¬ is_valid_ref(str, r, st) ∨ ¬ st[r -- _type] .type ≤ mkarraytype(ty))), is_primtype(ty) ⊦ validrefs(str, r ' + refs0, mkarraytype(ty), st) ↔ r ' + refs0 = jvmref ' ∨ okarray(r, ty, st) ∧ refs0 = [] |
⊦ validrefs(str, jvmref ' + refs, ty, st) ↔ refs = []
⊦ validrefs(str, jvmref ', ty, st)
is_arraytype(st[r -- _type] .type), st[r -- _type] .type .type ≤ ty, is_primtype(ty), is_array(str, r, st) ⊦ validrefs(str, r ' + refs0, mkarraytype(ty), st) ↔ r ' + refs0 = jvmref ' ∨ okarray(r, ty, st) ∧ refs0 = [], r = jvmref
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_arraytype (st[r -- _type] .type) ∧ r ≠ jvmref → ( is_valid_ref(str, r, st) ↔ is_array(str, r, st))], [CSIMPSEQ : ⊦ ¬ okarray(jvmref, ty, st)], [CSIMPSEQ : ⊦ r ' = r0 ' + refs ↔ r = r0 ∧ refs = []], [CSIMPSEQ : ⊦ r ' = r0 ' ↔ r = r0], [CSIMPSEQ : ⊦ refs + [] = refs], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ ty0 ≤ mkarraytype(ty) ↔ is_arraytype(ty0) ∧ ty0 .type ≤ ty])]]