| st[r2 -- _type] = st1[r1 -- _type], st1[r1 -- _type] .type = mkclasstype(class), st1[r1 -- fs '] .refval = jvmref, is_referencevalue(st[r2 -- fs ']), fs ' ∈ instfields(class), is_obj(str, r1, st1), is_obj(str, r2, st), validrefs(str, (st[r2 -- fs '] .refval ' + refs) + r0 ', fs .type, st), ps=(st[r2 -- fs '] .refval, st, jvmref, st1), is_referencevalue(st1[r1 -- fs ']), junkref(str, st[r2 -- fs '] .refval, st), ∀ 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, r2 = st[r2 -- fs '] .refval, junkref(str, r2, st), cyclic(str, r1, st1), r2 ∈ refs, dups(refs), st[r2 -- fs '] .refval ∈ refs, r0 ≠ r2 ∧ r0 ≠ st[r2 -- fs '] .refval ∧ ¬ r0 ∈ refs |
⊦ is_obj(str, r, st) → ( junkref(str, r, st) ↔ (∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ']) ∧ st[r -- fs '] .refval ≠ jvmref ∧ (¬ st[st[r -- fs '] .refval -- _type] .type ≤ fs .type ∨ junkref(str, st[r -- fs '] .refval, st))))
is_obj(str, r2, st), st[r2 -- _type] = st1[r1 -- _type], st1[r1 -- _type] .type = mkclasstype(class), st1[r1 -- fs '] .refval = jvmref, is_referencevalue(st[r2 -- fs ']), fs ' ∈ instfields(class), is_obj(str, r1, st1), is_obj(str, r2, st), validrefs(str, (st[r2 -- fs '] .refval ' + refs) + r0 ', fs .type, st), ps=(st[r2 -- fs '] .refval, st, jvmref, st1), is_referencevalue(st1[r1 -- fs ']), junkref(str, st[r2 -- fs '] .refval, st), ∀ 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, r2 = st[r2 -- fs '] .refval, ∃ fs. fs ' ∈ instfields(st[r2 -- _type] .type .class) ∧ is_referencevalue(st[r2 -- fs ']) ∧ st[r2 -- fs '] .refval ≠ jvmref ∧ (¬ st[st[r2 -- fs '] .refval -- _type] .type ≤ fs .type ∨ junkref(str, st[r2 -- fs '] .refval, st)), cyclic(str, r1, st1), r2 ∈ refs, dups(refs), st[r2 -- fs '] .refval ∈ refs, r0 ≠ r2 ∧ r0 ≠ st[r2 -- fs '] .refval ∧ ¬ r0 ∈ refs
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r2, str)]]