| is_array(r, st), st[r -- _type] = typeval(mkarraytype(ty)), is_primtype(ty) ⊦ (is_obj(r, st) ∨ is_array(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) |
⊦ st[r -- _type] = typeval(mkarraytype(ty)) → ¬ is_obj(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_primtype(abstract_type)], [CSIMPSEQ : ⊦ ¬ is_primtype(void_type)], [CSIMPSEQ : ⊦ is_primtype(ty) → ty .jtelemtype = ty], [CSIMPSEQ : ⊦ is_primtype(ty) → type∃(str, ty)])]]