| is_primtype(ty), ∀ val. val ∈ vals → okprimtype(val, ty) ⊦ 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))
is_primtype(ty), ∀ val. val ∈ vals → okprimtype(val, ty) ⊦ r = jvmref, ty = abstract_type, ty = void_type, is_array(r, addarray(r, ty, vals, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_primtype(abstract_type)], [CSIMPSEQ : ⊦ ¬ is_primtype(void_type)], [CSIMPSEQ : ⊦ is_primtype(ty) → ty .jtelemtype = ty], [CSIMPSEQ : ⊦ mkarraytype(ty) .jtelemtype = ty .jtelemtype], [CSIMPSEQ : ⊦ is_primtype(ty) → type∃(str, ty)], [CSIMPSEQ : ⊦ type∃(str, mkarraytype(ty)) ↔ type∃(str, ty)], [CSIMPSEQ : ⊦ typeval(ty) .type = ty])]]