| junkref(str, r, addarray(r, ty, vals, st)), newref(r, st), is_classtype(ty), class∃(str, ty .class), ∀ val. val ∈ vals → ¬ junkref(str, val .refval, st) ∧ is_referencevalue(val) ∧ (val .refval ≠ jvmref → st[val .refval -- _type] .type ≤ ty) ⊦ r = jvmref |
⊦ junkref(str, r, st) ↔ (∃ refs. refs ≠ [] ∧ refs .first = r ∧ junkrefs(str, refs, st[r -- _type] .type, st))
∃ refs. refs ≠ [] ∧ refs .first = r ∧ junkrefs(str, refs, (addarray(r, ty, vals, st)[r -- _type]) .type, addarray(r, ty, vals, st)), newref(r, st), is_classtype(ty), class∃(str, ty .class), ∀ val. val ∈ vals → ¬ junkref(str, val .refval, st) ∧ is_referencevalue(val) ∧ (val .refval ≠ jvmref → st[val .refval -- _type] .type ≤ ty) ⊦ r = jvmref
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (addarray(r, ty, vals, st), r, str)]]