| 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) |
⊦ validrefval(str, refval(r), ty, st) ↔ validref(str, r, ty, st)
⊦ validref(str, jvmref, ty, st)
validfieldinits(str, fis0, st), okval(refval(r), ty), validfieldinits(fis0, st), type∃(str, ty), r -- _type ∈ st, is_typevalue(st[r -- _type]), st[r -- _type] .type ≤ ty, r ∈ st, ∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type), ∀ str, st. validfieldinits(str, fis0, st) ↔ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, fis0 .vals, st) ∧ (∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type)) ⊦ r = jvmref, junkref(str, r, st), junkrefs(str, fis0 .vals, st), validref(str, r, ty, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]