| 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 ⊦ r = r1, r = jvmref, junkref(str, r1, st), cyclic(str, r1, st), ¬ dups(refs) ∧ ¬ r1 ∈ refs ∧ ¬ r ∈ refs |
⊦ validrefs(str, jvmref ' + refs, ty, st) ↔ refs = []
⊦ ¬ cyclic(str, jvmref, st)
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
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ ¬ junkref(str, jvmref, st)], [CSIMPSEQ : ⊦ ¬ dups([])], [CSIMPSEQ : ⊦ ¬ r ∈ []])], [EXTRAFMAS : (r1 = jvmref)]]