| st[r -- _type] = typeval(mkarraytype(ty)), r ∈ st, ∀ rk. rk ∈ st → rk ∈ st1 ∧ st[rk] = st1[rk], okarray(r, ty, st), r -- _type ∈ st, r ∈ st1, okarray(r, ty, st1) ⊦ r = jvmref, r -- _type ∈ st1 ∧ is_typevalue(st1[r -- _type]) ∧ is_arraytype(st1[r -- _type] .type) ∧ okarray(r, st1[r -- _type] .type .type, st1) |
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ is_typevalue(typeval(ty))], [CSIMPSEQ : ⊦ typeval(ty) .type = ty], [CSIMPSEQ : ⊦ is_arraytype(mkarraytype(ty))], [CSIMPSEQ : ⊦ mkarraytype(ty) .type = ty])], [EXTRATERMS : (r -- _type)]]