| jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st, initdone(class, st), mkfs(class0, ty, fieldvar) ' ∈ statfields(class), jvmref ∈ st, okval(st[jvmref -- mkfs(class0, ty, fieldvar) '], ty) ∧ ( is_referencevalue(st[jvmref -- mkfs(class0, ty, fieldvar) ']) ∧ st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval ≠ jvmref → st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type ∈ st ∧ is_typevalue(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type]) ∧ is_reftype(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type) ∧ ( has_classtype(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type) → tdname+∃(str, st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type .jtelemtype .class)) ∧ ( is_classtype(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type) → class+∃(str, st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type .class)) ∧ asgcomp(str, st[jvmref -- mkfs(class0, ty, fieldvar) '], ty, st)), class∃(str, class) ∨ interface∃(str, class), ∀ sk. sk ∈ statfields(class) → jvmref -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[jvmref -- sk], sk .fs .type, st) ⊦ compat(str, st[_mode, val][jvmref -- mkfs(class0, ty, fieldvar) '], ty, st[_mode, val]) |
jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st, initdone(class, st), mkfs(class0, ty, fieldvar) ' ∈ statfields(class), jvmref ∈ st, okval(st[jvmref -- mkfs(class0, ty, fieldvar) '], ty), class∃(str, class) ∨ interface∃(str, class), ∀ sk. sk ∈ statfields(class) → jvmref -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[jvmref -- sk], sk .fs .type, st), is_referencevalue(st[jvmref -- mkfs(class0, ty, fieldvar) ']) ∧ st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval ≠ jvmref → st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type ∈ st ∧ is_typevalue(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type]) ∧ is_reftype(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type) ∧ ( has_classtype(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type) → tdname+∃(str, st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type .jtelemtype .class)) ∧ ( is_classtype(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type) → class+∃(str, st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type .class)) ∧ is_subtype(str, st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type, ty) ⊦ compat(str, st[_mode, val][jvmref -- mkfs(class0, ty, fieldvar) '], ty, st[_mode, val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ asgcomp(str, val, ty, st) ↔ ¬ is_referencevalue(val) ∨ val .refval = jvmref ∨ is_subtype (str, st[val .refval -- _type] .type, ty)])]]