| is_obj(str, r, st[r -- sk, val]) ∧ (st[r -- sk, val][r -- _type]) .type ≤ ty, is_obj(str, r, st), is_valid_ref(str, r, st[r -- sk, val]), st[r -- _type] .type ≤ ty, is_valid_ref(r, st) ⊦ sk = _length, sk = _type, r0 = st[r -- sk] .refval, val .refval = r0, r = r0, r = jvmref, r0 ' + refs1 = [] ∨ (∃ fs. fs ' ∈ instfields((st[r -- sk, val][r -- _type]) .type .class) ∧ is_referencevalue(st[r -- sk, val][r -- fs ']) ∧ (r0 ' + refs1) .first = (st[r -- sk, val][r -- fs ']) .refval ∧ validrefs(str, r0 ' + refs1, fs .type, st[r -- sk, val])) ↔ (∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ']) ∧ r0 = st[r -- fs '] .refval ∧ validrefs(str, st[r -- fs '] .refval ' + refs1, fs .type, st)), r0 ∈ refs1, dups(refs1), r ∈ refs1 |
is_obj(str, r, st), is_valid_ref(r, st), is_obj(str, r, st[r -- sk, val]), st[r -- _type] .type ≤ ty ⊦ sk = _length, sk = _type, r0 = st[r -- sk] .refval, val .refval = r0, r = r0, r = jvmref, (∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- sk, val][r -- fs ']) ∧ r0 = (st[r -- sk, val][r -- fs ']) .refval ∧ validrefs(str, (st[r -- sk, val][r -- fs ']) .refval ' + refs1, fs .type, st[r -- sk, val])) ↔ (∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ']) ∧ r0 = st[r -- fs '] .refval ∧ validrefs(str, st[r -- fs '] .refval ' + refs1, fs .type, st)), r0 ∈ refs1, dups(refs1), r ∈ refs1
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : addfuns, , is_valid_ref-isobj, ⊦ is_obj(str, r, st) → is_valid_ref(str, r, st)], [CSIMPNAMEDSEQ : list, references, c-08, ⊦ (r ' + refs) .first = r], [CSIMPNAMEDSEQ : javastore, , at-other-16, ⊦ sk ≠ sk0 → (st[r -- sk, val] [r0 -- sk0 ] ) = st[r0 -- sk0]], [CSIMPNAMEDSEQ : list, references, a, ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPNAMEDSEQ : list, references, e, ⊦ r ' ≠ []], [CSIMPNAMEDSEQ : list, references, app-02-ant, ⊦ ¬ refs + refs0 ≠ [] ↔ refs = [] ∧ refs0 = []])]]