| is_obj(str, r0, st[r -- mkfs(class, byte_type, fieldvar) ', byteval(by)]), st[r0 -- _type] .type ≤ ty, ∀ by, fieldvar, class, r, st, ty, str, refs0. # refs0 < # (r0 + []) → ( validrefs(str, refs0, ty, st[r -- mkfs(class, byte_type, fieldvar) ', byteval(by)]) → refs0 = [] ∨ junkref(str, refs0 .first, st) ∨ validrefs(str, refs0, ty, st)) ⊦ r0 = jvmref, junkref(str, r0, st), validrefs(str, r0 ', ty, st) |
⊦ validrefs(str, r ', ty, st) ↔ r = jvmref ∨ r ≠ jvmref ∧ is_valid_ref(str, r, st) ∧ st[r -- _type] .type ≤ ty
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_valid_ref(str, r, st) ∧ r ≠ jvmref → junkref(str, r, st)])], [EXTRATERMS : (st, ty, r0, str)]]