| validfieldinits(str, fis0, st), okval(val, ty), validfieldinits(fis0, st), ∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type), is_referencevalue(val) → val .refval = jvmref ∨ val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ ty, ¬ is_referencevalue(val) ∨ ¬ junkref(str, val .refval, st), ∀ str, st. validfieldinits(str, fis0, st) ↔ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, fis0 .vals, st) ∧ (∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type)), mkfs(class, ty, fieldvar) ' = mkfs(class, ty, fieldvar) ' ∨ mkfs(class, ty, fieldvar) ' ∈ fis0 → type∃(str, mkfs(class, ty, fieldvar) ' .fs .type), ∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type) ⊦ junkrefs(str, fis0 .vals, st), validval(str, val, ty, st) ∧ type∃(str, ty) |
validfieldinits(str, fis0, st), okval(val, ty), validfieldinits(fis0, st), type∃(str, ty), ∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type), is_referencevalue(val) → val .refval = jvmref ∨ val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ ty, ¬ is_referencevalue(val) ∨ ¬ junkref(str, val .refval, st), ∀ str, st. validfieldinits(str, fis0, st) ↔ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, fis0 .vals, st) ∧ (∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type)) ⊦ junkrefs(str, fis0 .vals, st), validval(str, val, ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ fs ' .fs = fs])]]