| st[r -- _type] = typeval(mkarraytype(ty)), is_primtype(ty) ⊦ is_valid_ref(r, st) ∧ ( class+∃(str, mkarraytype(ty) .class) ∧ ¬ is_abstract(mkarraytype(ty) .class) ∧ is_obj(r, st) ∨ type∃(str, st[r -- _type] .type) ∧ st[r -- _type] .type .jtelemtype ≠ void_type ∧ st[r -- _type] .type .jtelemtype ≠ abstract_type ∧ is_array(r, st)) ↔ is_array(r, st) |
st[r -- _type] = typeval(mkarraytype(ty)), is_primtype(ty) ⊦ is_valid_ref(r, st) ∧ ( class+∃(str, mkarraytype(ty) .class) ∧ ¬ is_abstract(mkarraytype(ty) .class) ∧ is_obj(r, st) ∨ type∃(str, ty) ∧ ty .jtelemtype ≠ void_type ∧ ty .jtelemtype ≠ abstract_type ∧ is_array(r, st)) ↔ is_array(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkarraytype(ty) .jtelemtype = ty .jtelemtype], [CSIMPSEQ : ⊦ type∃(str, mkarraytype(ty)) ↔ type∃(str, ty)], [CSIMPSEQ : ⊦ typeval(ty) .type = ty])]]