| is_primtype(ty), is_referencevalue(refval(r)) ∧ ( refval(r) .refval ≠ jvmref → refval(r) .refval -- _type ∈ st ∧ is_typevalue(st[refval(r) .refval -- _type]) ∧ st[refval(r) .refval -- _type] .type ≤ mkarraytype(ty)), r -- _length ∈ st, is_arrayref(r, st[r -- _length] .intval, st), is_array(r, st), r ∈ st, 0 ≤ st[r -- _length] .intval, ¬ st[r -- _type] .type ≤ mkarraytype(ty) ∨ st[r -- _type] .type .jtelemtype = abstract_type ∨ st[r -- _type] .type .jtelemtype = void_type ∨ ¬ type∃(str, st[r -- _type] .type), ∀ j. ¬ j < 0 ∧ ¬ st[r -- _length] .intval ≤ j → okval(st[r -- j '], ty) ⊦ r = jvmref |
is_primtype(ty), r -- _length ∈ st, is_arrayref(r, st[r -- _length] .intval, st), is_array(r, st), r ∈ st, 0 ≤ st[r -- _length] .intval, r -- _type ∈ st, is_typevalue(st[r -- _type]), is_arraytype(st[r -- _type] .type), st[r -- _type] .type .type ≤ ty, ∀ j. ¬ j < 0 ∧ ¬ st[r -- _length] .intval ≤ j → okval(st[r -- j '], ty), st[r -- _type] .type .type .jtelemtype = abstract_type ∨ st[r -- _type] .type .type .jtelemtype = void_type ∨ ¬ type∃(str, st[r -- _type] .type) ⊦ r = jvmref
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_arraytype(ty) → ty .jtelemtype = ty .type .jtelemtype], [CSIMPSEQ : ⊦ ty0 ≤ mkarraytype(ty) ↔ is_arraytype(ty0) ∧ ty0 .type ≤ ty], [CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]