| ⊦ type∃(str, (addarray(r, ty, i, st)[r -- _type]) .type) ∧ (addarray(r, ty, i, st)[r -- _type]) .type .jtelemtype ≠ void_type ∧ (addarray(r, ty, i, st)[r -- _type]) .type .jtelemtype ≠ abstract_type ∧ is_array(r, addarray(r, ty, i, st)) ↔ type∃(str, ty) ∧ ¬ i < 0 ∧ r ≠ jvmref ∧ ty .jtelemtype ≠ void_type ∧ ty .jtelemtype ≠ abstract_type |
⊦ (addarray(r, ty, i, st)[r -- _type]) = typeval(mkarraytype(ty))
type∃(str, ty) ⊦ is_array(r, addarray(r, ty, i, st)) ↔ ¬ i < 0 ∧ r ≠ jvmref, ty .jtelemtype = abstract_type, ty .jtelemtype = void_type
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkarraytype(ty) .jtelemtype = ty .jtelemtype], [CSIMPSEQ : ⊦ type∃(str, mkarraytype(ty)) ↔ type∃(str, ty)], [CSIMPSEQ : ⊦ typeval(ty) .type = ty])]]