| is_obj(str, r0, st), st[r0 -- _type] .type ≤ ty, ∀ r, str, ty, st. r ∈ acc ∧ validrefs(str, acc, ty, st) → r = jvmref ∨ is_valid_ref(r, st) ∧ type∃(str, st[r -- _type] .type), acc = [] ∨ mkfs(class, ty0, fieldvar) ' ∈ instfields(st[r0 -- _type] .type .class) ∧ is_referencevalue(st[r0 -- mkfs(class, ty0, fieldvar) ']) ∧ acc .first = st[r0 -- mkfs(class, ty0, fieldvar) '] .refval ∧ validrefs(str, acc, ty0, st) ⊦ r0 = jvmref, r = jvmref, r ≠ r0 ∧ ¬ r ∈ acc, is_valid_ref(r, st) ∧ type∃(str, st[r -- _type] .type) |
is_obj(str, r0, st), st[r0 -- _type] .type ≤ ty, ∀ r, str, ty, st. r ∈ acc ∧ validrefs(str, acc, ty, st) → r = jvmref ∨ is_valid_ref(r, st) ∧ type∃(str, st[r -- _type] .type), acc = [] ∨ mkfs(class, ty0, fieldvar) ' ∈ instfields(st[r0 -- _type] .type .class) ∧ is_referencevalue(st[r0 -- mkfs(class, ty0, fieldvar) ']) ∧ acc .first = st[r0 -- mkfs(class, ty0, fieldvar) '] .refval ∧ validrefs(str, acc, ty0, st) ⊦ acc = [], r0 = jvmref, r = jvmref, r ≠ r0 ∧ ¬ r ∈ acc, is_valid_ref(r, st) ∧ type∃(str, st[r -- _type] .type)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ r ∈ []], [CSIMPSEQ : ⊦ ¬ is_valid_ref(r, st) → ¬ is_obj(str, r, st)], [CSIMPSEQ : ⊦ ¬ type∃ (str, st[r -- _type] .type) ∧ r ≠ jvmref → ¬ is_obj(str, r, st)])], [EXTRAFMAS : (acc = [])]]