| st[jvmref -- mkfs(class1, ty, fieldvar) '] = refval(r0), okval(st[jvmref -- mkfs(class1, ty, fieldvar) '], ty), jvmref ∈ st, mkfs(class1, ty, fieldvar) ' ∈ statfields(class0), compatrefs(str, st), compatmode(str, st), newref(r, st), is_predefined_class(class), initdone(class0, st), jvmref -- mkfs(class1, ty, fieldvar) ' ∈ st, is_referencevalue(st[jvmref -- mkfs(class1, ty, fieldvar) ']), ∀ sk. sk ∈ statfields(class0) → jvmref -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[jvmref -- sk], sk .fs .type, st), class∃(str, class0) ∨ interface∃(str, class0), r0 ≠ jvmref → r0 -- _type ∈ st ∧ is_typevalue(st[r0 -- _type]) ∧ is_reftype(st[r0 -- _type] .type) ∧ (has_classtype(st[r0 -- _type] .type) → tdname+∃(str, st[r0 -- _type] .type .jtelemtype .class)) ∧ (is_classtype(st[r0 -- _type] .type) → class+∃(str, st[r0 -- _type] .type .class)) ∧ is_subtype(str, st[r0 -- _type] .type, ty) ⊦ compat(str, st[jvmref -- mkfs(class1, ty, fieldvar) '], ty, st[r -- _type, typeval(mkclasstype(class))]) |
st[jvmref -- mkfs(class1, ty, fieldvar) '] = refval(r0), jvmref -- mkfs(class1, ty, fieldvar) ' ∈ st, initdone(class0, st), is_predefined_class(class), newref(r, st), compatmode(str, st), compatrefs(str, st), mkfs(class1, ty, fieldvar) ' ∈ statfields(class0), jvmref ∈ st, okval(refval(r0), ty), r0 ≠ jvmref → r0 -- _type ∈ st ∧ is_typevalue(st[r0 -- _type]) ∧ is_reftype(st[r0 -- _type] .type) ∧ (has_classtype(st[r0 -- _type] .type) → tdname+∃(str, st[r0 -- _type] .type .jtelemtype .class)) ∧ (is_classtype(st[r0 -- _type] .type) → class+∃(str, st[r0 -- _type] .type .class)) ∧ is_subtype(str, st[r0 -- _type] .type, ty), class∃(str, class0) ∨ interface∃(str, class0), ∀ sk. sk ∈ statfields(class0) → jvmref -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[jvmref -- sk], sk .fs .type, st) ⊦ compat(str, refval(r0), ty, st[r -- _type, typeval(mkclasstype(class))])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]