| is_obj(str, r0, st), st[r0 -- _type] .type ≤ ty, ∀ str, ty, st, r, sk, val. (junkrefs(str, acc, ty, st[r -- sk, val]) ↔ junkrefs(str, acc, ty, st)) ∨ r ∈ acc ⊦ r0 = jvmref, r = r0, (∃ fs. fs ' ∈ instfields(st[r0 -- _type] .type .class) ∧ is_referencevalue(st[r0 -- fs ']) ∧ acc .first = st[r0 -- fs '] .refval ∧ junkrefs(str, acc, fs .type, st[r -- sk, val])) ↔ (∃ fs. fs ' ∈ instfields(st[r0 -- _type] .type .class) ∧ is_referencevalue(st[r0 -- fs ']) ∧ acc .first = st[r0 -- fs '] .refval ∧ junkrefs(str, acc, fs .type, st)), acc = [], r ∈ acc |
acc = r1 + refs, is_obj(str, r0, st), st[r0 -- _type] .type ≤ ty, ∀ str, ty, st, r, sk, val. (junkrefs(str, acc, ty, st[r -- sk, val]) ↔ junkrefs(str, acc, ty, st)) ∨ r ∈ acc ⊦ r0 = jvmref, r = r0, (∃ fs. fs ' ∈ instfields(st[r0 -- _type] .type .class) ∧ is_referencevalue(st[r0 -- fs ']) ∧ r1 = st[r0 -- fs '] .refval ∧ junkrefs(str, acc, fs .type, st[r -- sk, val])) ↔ (∃ fs. fs ' ∈ instfields(st[r0 -- _type] .type .class) ∧ is_referencevalue(st[r0 -- fs ']) ∧ r1 = st[r0 -- fs '] .refval ∧ junkrefs(str, acc, fs .type, st)), acc = [], r ∈ acc
[[CONCRETESIMPRULES : ([CSIMPELIM : refs ≠ [] ⊦ r = refs .first ∧ refs0 = refs .rest ↔ refs = r + refs0])], [EXTRATERMS : (acc, r1, refs)]]