| 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) |
st[r -- _type] = typeval(ty0), validfieldinits(str, fis0, st), okval(refval(r), ty), validfieldinits(fis0, st), type∃(str, ty), r -- _type ∈ st, is_typevalue(st[r -- _type]), ty0 ≤ 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 : ([CSIMPELIM : ⊦ is_typevalue(val) → ( ty = val .type ↔ val = typeval(ty))])], [EXTRATERMS : (st[r -- _type], ty0)]]