| st[r1 -- sks] = refval(r2), st[r -- mkfs(class, ty, fieldvar) '] = refval(r1), st[r1 -- sks0] = refval(r2), is_obj(str, r, st), fits(r1, sks0, st), fits(r1, sks, st), validrefs(str, r1 ' + refs1, st[r1 -- _type] .type, st), mkfs(class, ty, fieldvar) ' ∈ instfields(st[r -- _type] .type .class), validrefs(str, r1 ' + refs1, ty, st), ∀ st0, str, refs, r0. # (r0 ' + refs) < # (r ' + (r1 + refs1)) → (validrefs(str, r0 ' + refs, st0[r0 -- _type] .type, st0) → hasSharing(r0, st0) ∨ ¬ r0 ∈ refs ∧ ¬ dups(refs)) ⊦ r = jvmref, r2 = jvmref, sks = [], sks0 = [], sks0 = sks, is_arraytype(st[r -- _type] .type), r ∈ refs1, ¬ r1 ∈ refs1 ∧ ¬ dups(refs1), st[r -- (mkfs(class, ty, fieldvar) ' ' + sks)] = st[r -- (mkfs(class, ty, fieldvar) ' ' + sks0)] ∧ st[r -- (mkfs(class, ty, fieldvar) ' ' + sks)] .refval ≠ jvmref ∧ fits(r, mkfs(class, ty, fieldvar) ' ' + sks0, st) |
⊦ fits(r, sk ' + sks, st) ↔ r ≠ jvmref ∧ is_referencevalue(st[r -- sk]) ∧ (is_classtype(st[r -- _type] .type) → sk ∈ instfields(st[r -- _type] .type .class)) ∧ (is_arraytype(st[r -- _type] .type) → is_indexkey(sk) ∧ 0 ≤ sk .index ∧ sk .index < st[r -- _length] .intval) ∧ fits(st[r -- sk] .refval, sks, st)
st[r1 -- sks] = refval(r2), st[r -- mkfs(class, ty, fieldvar) '] = refval(r1), st[r1 -- sks0] = refval(r2), is_obj(str, r, st), fits(r1, sks0, st), fits(r1, sks, st), validrefs(str, r1 ' + refs1, st[r1 -- _type] .type, st), mkfs(class, ty, fieldvar) ' ∈ instfields(st[r -- _type] .type .class), validrefs(str, r1 ' + refs1, ty, st), ∀ st0, str, refs, r0. # (r0 ' + refs) < # (r ' + (r1 + refs1)) → (validrefs(str, r0 ' + refs, st0[r0 -- _type] .type, st0) → hasSharing(r0, st0) ∨ ¬ r0 ∈ refs ∧ ¬ dups(refs)) ⊦ r = jvmref, r2 = jvmref, sks = [], sks0 = [], sks0 = sks, is_arraytype(st[r -- _type] .type), r ∈ refs1, ¬ r1 ∈ refs1 ∧ ¬ dups(refs1), st[r -- (mkfs(class, ty, fieldvar) ' ' + sks)] = st[r -- (mkfs(class, ty, fieldvar) ' ' + sks0)] ∧ st[r -- (mkfs(class, ty, fieldvar) ' ' + sks)] .refval ≠ jvmref ∧ r ≠ jvmref ∧ is_referencevalue(st[r -- mkfs(class, ty, fieldvar) ']) ∧ (is_classtype(st[r -- _type] .type) → mkfs(class, ty, fieldvar) ' ∈ instfields(st[r -- _type] .type .class)) ∧ ( is_arraytype(st[r -- _type] .type) → is_indexkey(mkfs(class, ty, fieldvar) ') ∧ 0 ≤ mkfs(class, ty, fieldvar) ' .index ∧ mkfs(class, ty, fieldvar) ' .index < st[r -- _length] .intval) ∧ fits(st[r -- mkfs(class, ty, fieldvar) '] .refval, sks0, st)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, sks0, mkfs(class, ty, fieldvar) ', r)]]