| is_obj(str, r, st), is_valid_ref(str, r, st[r -- sk, val]), st[r -- _type] .type ≤ ty, is_valid_ref(r, st) ⊦ r = jvmref, validrefs(str, r ' + r0 ' + refs1, ty, st[r -- sk, val]) ↔ validrefs(str, r ' + r0 ' + refs1, ty, st), sk = _length, sk = _type, r0 = st[r -- sk] .refval, val .refval = r0, r = r0, r0 ∈ refs1, dups(refs1), r ∈ refs1 |
⊦ 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, r, st) ∧ st[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) ⊦ r = jvmref, validrefs(str, r ' + r0 ' + refs1, ty, st[r -- sk, val]) ↔ r0 ' + refs1 = [] ∨ (∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ']) ∧ (r0 ' + refs1) .first = st[r -- fs '] .refval ∧ validrefs(str, r0 ' + refs1, fs .type, st)), sk = _length, sk = _type, r0 = st[r -- sk] .refval, val .refval = r0, r = r0, r0 ∈ refs1, dups(refs1), r ∈ refs1
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : list, references, a, ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1])], [EXTRATERMS : (st, ty, r0 ' + refs1, r, str)]]