| is_obj(str, r1, st[r -- sk, val]) ∧ (st[r -- sk, val][r1 -- _type]) .type ≤ ty, is_obj(str, r1, st), list2set(refs1) ∩ list2set(refs0) = ∅, is_valid_ref(str, r, st) ↔ is_valid_ref(str, r, st[r -- sk, val]), st[r1 -- _type] .type ≤ ty, is_valid_ref(r1, st), ∀ str0, r2, st0, sk0, val0, refs, r3, ty0. (is_valid_ref(str0, r2, st0) ↔ is_valid_ref(str0, r2, st0[r2 -- sk0, val0])) ∧ list2set(refs0) ∩ list2set(refs) = ∅ → val0 .refval = r3 ∨ r3 = st0[r2 -- sk0] .refval ∨ sk0 = _type ∨ sk0 = _length ∨ (validrefs(str0, refs0 + r2 ' + r3 ' + refs, ty0, st0[r2 -- sk0, val0]) ↔ validrefs(str0, refs0 + r2 ' + r3 ' + refs, ty0, st0)) ∨ r2 = r3 ∨ r3 ∈ refs0 ∨ r2 ∈ refs ∨ r2 ∈ refs0 ∨ dups(refs) ∨ r3 ∈ refs ⊦ r1 = jvmref, r = r1, r0 = r1, refs0 + r ' + r0 ' + refs1 = [] ∨ (∃ fs. fs ' ∈ instfields((st[r -- sk, val][r1 -- _type]) .type .class) ∧ is_referencevalue(st[r -- sk, val][r1 -- fs ']) ∧ (refs0 + r ' + r0 ' + refs1) .first = (st[r -- sk, val][r1 -- fs ']) .refval ∧ validrefs(str, refs0 + r ' + r0 ' + refs1, fs .type, st[r -- sk, val])) ↔ validrefs(str, (r1 ' + refs0) + r ' + r0 ' + refs1, ty, st), sk = _length, sk = _type, r0 = st[r -- sk] .refval, val .refval = r0, r = r0, r ∈ refs0, r ∈ refs1, r0 ∈ refs0, r1 ∈ refs0, dups(refs0), r1 ∈ refs1, r0 ∈ refs1, dups(refs1) |
list2set(refs1) ∩ list2set(refs0) = ∅, is_valid_ref(str, r, st) ↔ is_valid_ref(str, r, st[r -- sk, val]), is_valid_ref(r1, st), is_obj(str, r1, st), st[r1 -- _type] .type ≤ ty, ∀ str0, r2, st0, sk0, val0, refs, r3, ty0. (is_valid_ref(str0, r2, st0) ↔ is_valid_ref(str0, r2, st0[r2 -- sk0, val0])) ∧ list2set(refs0) ∩ list2set(refs) = ∅ → val0 .refval = r3 ∨ r3 = st0[r2 -- sk0] .refval ∨ sk0 = _type ∨ sk0 = _length ∨ (validrefs(str0, refs0 + r2 ' + r3 ' + refs, ty0, st0[r2 -- sk0, val0]) ↔ validrefs(str0, refs0 + r2 ' + r3 ' + refs, ty0, st0)) ∨ r2 = r3 ∨ r3 ∈ refs0 ∨ r2 ∈ refs ∨ r2 ∈ refs0 ∨ dups(refs) ∨ r3 ∈ refs ⊦ sk = _length, sk = _type, r0 = st[r -- sk] .refval, val .refval = r0, r = r0, r1 = jvmref, r = r1, r0 = r1, (∃ fs. fs ' ∈ instfields(st[r1 -- _type] .type .class) ∧ is_referencevalue(st[r1 -- fs ']) ∧ (refs0 + r ') .first = st[r1 -- fs '] .refval ∧ validrefs(str, refs0 + r ' + r0 ' + refs1, fs .type, st[r -- sk, val])) ↔ validrefs(str, (r1 ' + refs0) + r ' + r0 ' + refs1, ty, st), r ∈ refs0, r ∈ refs1, r0 ∈ refs0, r1 ∈ refs0, dups(refs0), r1 ∈ refs1, r0 ∈ refs1, dups(refs1)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : addfuns, , is_obj-put-01, ⊦ r ≠ r0 → ( is_obj (str, r0, st[r -- sk, val]) ↔ is_obj(str, r0, st))], [CSIMPNAMEDSEQ : list, references, first-02, ⊦ (refs + r ' + refs0) .first = (refs + r ') .first], [CSIMPNAMEDSEQ : javastore, , look-ins, ⊦ r ≠ r0 → (st[r0 -- sk0, val] [r -- sk ] ) = st[r -- sk]], [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 = []])]]