| st[r1 -- mkfs(class0, ty, fieldvar) '] = refval(r2), st[r1 -- _type] .type = mkclasstype(class), r3 ∈ refs, r ∈ refs, r1 ∈ refs, mkfs(class0, ty, fieldvar) ' ∈ instfields(class), path∃(str, r2, r0, st), path∃(str, r3, r0, st), is_obj(str, r1, st), ∀ r4, r5, r6. ¬ r4 ∈ refs ∨ ¬ r5 ∈ refs ∨ r4 = r5 ∨ r6 = jvmref ∨ ¬ path∃(str, r4, r6, st) ∨ ¬ path∃(str, r5, r6, st) ⊦ r1 = r0, r3 = r1, r3 = r2, r0 = jvmref, r1 = jvmref, r = r1, r2 = jvmref, r2 ∈ refs -l r1, r2 ∈ refs, junkref(str, r1, st), st[r2 -- _type] .type ≤ ty |
⊦ 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, r1, st), st[r1 -- mkfs(class0, ty, fieldvar) '] = refval(r2), st[r1 -- _type] .type = mkclasstype(class), r3 ∈ refs, r ∈ refs, r1 ∈ refs, mkfs(class0, ty, fieldvar) ' ∈ instfields(class), path∃(str, r2, r0, st), path∃(str, r3, r0, st), is_obj(str, r1, st), ∀ r4, r5, r6. ¬ r4 ∈ refs ∨ ¬ r5 ∈ refs ∨ r4 = r5 ∨ r6 = jvmref ∨ ¬ path∃(str, r4, r6, st) ∨ ¬ path∃(str, r5, r6, st) ⊦ r1 = r0, r3 = r1, r3 = r2, r0 = jvmref, r1 = jvmref, r = r1, r2 = jvmref, r2 ∈ refs -l r1, r2 ∈ refs, ∃ fs. fs ' ∈ instfields(st[r1 -- _type] .type .class) ∧ is_referencevalue(st[r1 -- fs ']) ∧ st[r1 -- fs '] .refval ≠ jvmref ∧ (¬ st[st[r1 -- fs '] .refval -- _type] .type ≤ fs .type ∨ junkref(str, st[r1 -- fs '] .refval, st)), st[r2 -- _type] .type ≤ ty
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r1, str)]]