| newref(r, st), class∃(str, class), junkrefs(str, r ' + refs0, mkarraytype(mkclasstype(class)), addarray(r, mkclasstype(class), vals, st)), tdname+∃(str, class), ∀ val. val ∈ vals → ¬ junkref(str, val .refval, st) ∧ is_referencevalue(val) ∧ (val .refval ≠ jvmref → st[val .refval -- _type] .type ≤ mkclasstype(class)) ⊦ r = jvmref, r ≠ jvmref ∧ r -- _type ∈ addarray(r, mkclasstype(class), vals, st) ∧ is_typevalue(addarray(r, mkclasstype(class), vals, st)[r -- _type]) ∧ is_arraytype((addarray(r, mkclasstype(class), vals, st)[r -- _type]) .type) ∧ okarray(r, (addarray(r, mkclasstype(class), vals, st)[r -- _type]) .type .type, addarray(r, mkclasstype(class), vals, st)) |
newref(r, st), class∃(str, class), junkrefs(str, r ' + refs0, mkarraytype(mkclasstype(class)), addarray(r, mkclasstype(class), vals, st)), tdname+∃(str, class), ∀ val. val ∈ vals → ¬ junkref(str, val .refval, st) ∧ is_referencevalue(val) ∧ (val .refval ≠ jvmref → st[val .refval -- _type] .type ≤ mkclasstype(class)) ⊦ r = jvmref, okarray(r, mkclasstype(class), addarray(r, mkclasstype(class), vals, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkarraytype(ty) .type = ty], [CSIMPSEQ : ⊦ is_arraytype(mkarraytype(ty))], [CSIMPSEQ : ⊦ typeval(ty) .type = ty], [CSIMPSEQ : ⊦ is_typevalue(typeval(ty))], [CSIMPSEQ : ⊦ (addarray(r, ty, vals, st) [r -- _type ] ) = typeval(mkarraytype(ty))], [CSIMPSEQ : ⊦ r -- _type ∈ addarray(r, ty, vals, st)])]]