| r2 = st[r2 -- fs '] .refval, st1[r1 -- _type] .type = mkclasstype(class), st[r2 -- _type] = st1[r1 -- _type], is_referencevalue(st1[r1 -- fs ']), cyclic(str, st1[r1 -- fs '] .refval, st1), r2 = jvmref ∨ r2 ≠ jvmref ∧ is_valid_ref(str, r2, st) ∧ st[r2 -- _type] .type ≤ fs .type, is_obj(str, r2, st), is_obj(str, r1, st1), fs ' ∈ instfields(class), is_referencevalue(st[r2 -- fs ']), ps=(r2, st, st1[r1 -- fs '] .refval, st1), ∀ fs. fs ' ∈ instfields(class) ∧ ¬ is_referencevalue(st[r2 -- fs ']) → st[r2 -- fs '] = st1[r1 -- fs '], ∀ st, r, st0, r0, str0. maxpath(str0, r0, st0) < maxpath(str, r1, st1) → (ps=(r, st, r0, st0) ∧ cyclic(str0, r, st) → junkref(str0, r, st) ∨ junkref(str0, r0, st0) ∨ cyclic(str0, r0, st0)) ⊦ r2 = jvmref, r1 = jvmref, cyclic(str, r1, st1), junkref(str, r1, st1), junkref(str, r2, st), junkref(str, st1[r1 -- fs '] .refval, st1), is_reftype(fs .type) ∧ st1[st1[r1 -- fs '] .refval -- _type] .type ≤ fs .type |
st[r2 -- _type] = st1[r1 -- _type], st1[r1 -- _type] .type = mkclasstype(class), r2 = st[r2 -- fs '] .refval, ps=(r2, st, st1[r1 -- fs '] .refval, st1), is_referencevalue(st[r2 -- fs ']), fs ' ∈ instfields(class), is_obj(str, r1, st1), is_obj(str, r2, st), cyclic(str, st1[r1 -- fs '] .refval, st1), is_referencevalue(st1[r1 -- fs ']), is_classtype(fs .type), class ≤ fs .type .class, ∀ fs. fs ' ∈ instfields(class) ∧ ¬ is_referencevalue(st[r2 -- fs ']) → st[r2 -- fs '] = st1[r1 -- fs '], ∀ st, r, st0, r0, str0. maxpath(str0, r0, st0) < maxpath(str, r1, st1) → (ps=(r, st, r0, st0) ∧ cyclic(str0, r, st) → junkref(str0, r, st) ∨ junkref(str0, r0, st0) ∨ cyclic(str0, r0, st0)) ⊦ r1 = jvmref, r2 = jvmref, junkref(str, st1[r1 -- fs '] .refval, st1), junkref(str, r2, st), junkref(str, r1, st1), cyclic(str, r1, st1), st1[st1[r1 -- fs '] .refval -- _type] .type ≤ fs .type
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_classtype(ty) → is_reftype(ty)], [CSIMPSEQ : ⊦ mkclasstype(class) ≤ ty ↔ is_classtype(ty) ∧ class ≤ ty .class], [CSIMPSEQ : ⊦ is_obj(str, r, st) → is_valid_ref(str, r, st)])]]