| fis[mkfs(class0, ty, fieldvar) '] = refval(r1), fis .keys = instfields(class), st[r1 -- _type] = typeval(ty0), 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), r1 -- _type ∈ st, ty0 ≤ ty, r1 ∈ st, validrefs(str, r1 ' + refs, ty, st), ∀ fs, r0. fs ' × refval(r0) ∈ fis → ¬ junkref(str, r0, st) ∧ ¬ cyclic(str, r0, st) ⊦ r1 = jvmref, r = jvmref, r ∈ refs, junkref(str, r1, st), ∃ refs. dups(refs) ∧ refs .first = r1 ∧ validrefs(str, refs, st[r1 -- _type] .type, st), ¬ dups(refs) ∧ ¬ r1 ∈ refs |
fis[mkfs(class0, ty, fieldvar) '] = refval(r1), fis .keys = instfields(class), st[r1 -- _type] = typeval(ty0), 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), r1 -- _type ∈ st, ty0 ≤ ty, r1 ∈ st, validrefs(str, r1 ' + refs, ty, st), ∀ fs, r0. fs ' × refval(r0) ∈ fis → ¬ junkref(str, r0, st) ∧ ¬ cyclic(str, r0, st) ⊦ r1 = jvmref, r = jvmref, r ∈ refs, junkref(str, r1, st), ¬ dups(refs) ∧ ¬ r1 ∈ refs, ∃ refs0. dups(refs0) ∧ refs0 .first = r1 ∧ validrefs(str, refs0, st[refs0 .first -- _type] .type, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1])]]