| is_obj(str, r0, st), i < 0, st[r0 -- _type] .type ≤ ty, ∀ i0, str0, ty0, st0, r1, val0. ¬ 0 ≤ i0 → (validrefs(str0, refs0, ty0, st0[r1 -- i0 ', val0]) ↔ validrefs(str0, refs0, ty0, st0)) ⊦ validrefs(str, r0 ' + refs0, ty, st[r -- i ', val]) ↔ validrefs(str, r0 ' + refs0, ty, st), r0 = jvmref |
⊦ 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, r0, st[r -- i ', val]) ∧ (st[r -- i ', val][r0 -- _type]) .type ≤ ty, is_obj(str, r0, st), i < 0, st[r0 -- _type] .type ≤ ty, ∀ i0, str0, ty0, st0, r1, val0. ¬ 0 ≤ i0 → (validrefs(str0, refs0, ty0, st0[r1 -- i0 ', val0]) ↔ validrefs(str0, refs0, ty0, st0)) ⊦ refs0 = [] ∨ (∃ fs. fs ' ∈ instfields((st[r -- i ', val][r0 -- _type]) .type .class) ∧ is_referencevalue(st[r -- i ', val][r0 -- fs ']) ∧ refs0 .first = (st[r -- i ', val][r0 -- fs ']) .refval ∧ validrefs(str, refs0, fs .type, st[r -- i ', val])) ↔ validrefs(str, r0 ' + refs0, ty, st), r0 = jvmref
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : addfuns, , is_obj-put-index, ⊦ is_obj (str, r, st[r0 -- i ', val]) ↔ is_obj(str, r, st)], [CSIMPNAMEDSEQ : javastore, , type-at, ⊦ (st[r -- i ', val] [r0 -- _type ] ) = st[r0 -- _type]])], [EXTRATERMS : (st[r -- i ', val], ty, refs0, r0, str)]]