| fis[mkfs(class0, ty, fieldvar) '] = refval(r1), fis .keys = instfields(class), validrefs(str, r1 ' + refs, ty, addobj(r, class, fis, st)), mkfs(class0, ty, fieldvar) ' ∈ instfields(class), newref(r, st), is_obj(str, r, addobj(r, class, fis, st)), mkfs(class0, ty, fieldvar) ' ∈ fis, okval(refval(r1), ty), ∀ fs, r0. fs ' × refval(r0) ∈ fis → ¬ junkref(str, r0, st) ∧ ¬ cyclic(str, r0, st), r1 = jvmref ∨ r1 -- _type ∈ st ∧ is_typevalue(st[r1 -- _type]) ∧ st[r1 -- _type] .type ≤ ty ⊦ r1 = jvmref, r = r1, r = jvmref, junkref(str, r1, st), cyclic(str, r1, st), ¬ dups(refs) ∧ ¬ r1 ∈ refs ∧ ¬ r ∈ refs |
fis .keys = instfields(class), fis[mkfs(class0, ty, fieldvar) '] = refval(r1), r1 ∈ st, st[r1 -- _type] .type ≤ ty, is_typevalue(st[r1 -- _type]), r1 -- _type ∈ st, okval(refval(r1), ty), mkfs(class0, ty, fieldvar) ' ∈ fis, is_obj(str, r, addobj(r, class, fis, st)), newref(r, st), mkfs(class0, ty, fieldvar) ' ∈ instfields(class), validrefs(str, r1 ' + refs, ty, addobj(r, class, fis, st)), ∀ fs, r0. fs ' × refval(r0) ∈ fis → ¬ junkref(str, r0, st) ∧ ¬ cyclic(str, r0, st) ⊦ r = jvmref, r1 = jvmref, cyclic(str, r1, st), junkref(str, r1, st), ¬ dups(refs) ∧ ¬ r1 ∈ refs ∧ ¬ r ∈ refs
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ newref(r, st) ∧ r0 ∈ st ∧ r0 ≠ jvmref → r ≠ r0], [CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])]]