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