| type∃(str, ty), ∀ val. val ∈ vals → okval(val, ty) ⊦ ty .jtelemtype = void_type, ty .jtelemtype = abstract_type, r = jvmref, type∃(str, (addarray(r, ty, vals, st)[r -- _type]) .type) ∧ (addarray(r, ty, vals, st)[r -- _type]) .type .jtelemtype ≠ void_type ∧ (addarray(r, ty, vals, st)[r -- _type]) .type .jtelemtype ≠ abstract_type ∧ is_array(r, addarray(r, ty, vals, st)) |
⊦ (addarray(r, ty, vals, st)[r -- _type]) = typeval(mkarraytype(ty))
type∃(str, ty), ∀ val. val ∈ vals → okval(val, ty) ⊦ ty .jtelemtype = void_type, ty .jtelemtype = abstract_type, r = jvmref, is_array(r, addarray(r, ty, vals, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkarraytype(ty) .jtelemtype = ty .jtelemtype], [CSIMPSEQ : ⊦ type∃(str, mkarraytype(ty)) ↔ type∃(str, ty)], [CSIMPSEQ : ⊦ typeval(ty) .type = ty])]]