| validfieldinits(str, fis0, st), okval(val, ty), validfieldinits(fis0, st), type∃(str, ty), is_referencevalue(val), ∀ str, st. validfieldinits(str, fis0, st) ↔ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, fis0 .vals, st) ∧ (∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type)), val .refval = jvmref ∨ val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ ty, ∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type) ⊦ junkrefs(str, fis0 .vals, st), validrefval(str, val, ty, st), junkref(str, val .refval, st) |
val = refval(r), validfieldinits(str, fis0, st), okval(val, ty), validfieldinits(fis0, st), type∃(str, ty), is_referencevalue(val), ∀ str, st. validfieldinits(str, fis0, st) ↔ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, fis0 .vals, st) ∧ (∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type)), r = jvmref ∨ r -- _type ∈ st ∧ is_typevalue(st[r -- _type]) ∧ st[r -- _type] .type ≤ ty, ∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type) ⊦ junkrefs(str, fis0 .vals, st), validrefval(str, val, ty, st), junkref(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_referencevalue(val) → ( r = val .refval ↔ val = refval(r))])], [EXTRATERMS : (val, r)]]