| is_obj(str, r, st), hasSharing(r0, st), validrefs(str, r ' + refs1 + r0 ', st[r -- _type] .type, st), ∀ st, r, str, refs. # refs < # (refs1 + r0 ') → (validrefs(str, r ' + refs, st[r -- _type] .type, st) ∧ hasSharing(refs .last, st) → refs = [] ∨ hasSharing(r, st)) ⊦ r = jvmref, hasSharing(r, st) |
⊦ is_obj(str, r, st) ∧ st[r -- _type] .type ≤ ty → ( validrefs(str, r ' + refs, ty, st) ↔ refs = [] ∨ (∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ']) ∧ refs .first = st[r -- fs '] .refval ∧ validrefs(str, refs, fs .type, st)))
is_obj(str, r, st) ∧ st[r -- _type] .type ≤ st[r -- _type] .type, is_obj(str, r, st), hasSharing(r0, st), refs1 + r0 ' = [] ∨ (∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ']) ∧ (refs1 + r0 ') .first = st[r -- fs '] .refval ∧ validrefs(str, refs1 + r0 ', fs .type, st)), ∀ st, r, str, refs. # refs < # (refs1 + r0 ') → (validrefs(str, r ' + refs, st[r -- _type] .type, st) ∧ hasSharing(refs .last, st) → refs = [] ∨ hasSharing(r, st)) ⊦ r = jvmref, hasSharing(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ty ≤ ty])], [EXTRATERMS : (st, st[r -- _type] .type, refs1 + r0 ', r, str)]]