| 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) |
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)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_typevalue(typeval(ty))])]]