| st[r -- mkfs(class, ty1, fieldvar) '] = refval(r2), validrefs(str, r2 ' + refs2, ty1, st), mkfs(class, ty1, fieldvar) ' ∈ instfields(st[r -- _type] .type .class), is_obj(str, r, st), st[r -- _type] .type ≤ ty, junkrefs(str, r2 ' + refs2 + r0 ' + refs0, ty1, st), ∀ str0, ty0, st0. junkrefs(str0, r2 ' + refs2 + r0 ' + refs0, ty0, st0) → (∃ refs, r, refs3. r2 ' + refs2 + r0 ' + refs0 = refs + r ' + refs3 ∧ validrefs(str0, refs, ty0, st0) ∧ r ≠ jvmref ∧ ( ¬ is_valid_ref(str0, r, st0) ∨ refs = [] ∧ ¬ st0[r -- _type] .type ≤ ty0 ∨ refs ≠ [] ∧ ( is_obj(refs .last, st0) ∧ (∃ fs. fs ' ∈ instfields(st0[refs .last -- _type] .type .class) ∧ is_referencevalue(st0[refs .last -- fs ']) ∧ r = st0[refs .last -- fs '] .refval ∧ ¬ st0[st0[refs .last -- fs '] .refval -- _type] .type ≤ fs .type) ∨ is_array(refs .last, st0) ∧ (∃ i. 0 ≤ i ∧ i < st0[refs .last -- _length] .intval ∧ is_referencevalue(st0[refs .last -- i ']) ∧ r = st0[refs .last -- i '] .refval ∧ ¬ st0[st0[refs .last -- i '] .refval -- _type] .type ≤ st0[refs .last -- _type] .type .type)))), ¬ is_valid_ref(str, r0, st) ∨ is_obj(refs2 .last, st) ∧ mkfs(class0, ty2, fieldvar0) ' ∈ instfields(st[refs2 .last -- _type] .type .class) ∧ is_referencevalue(st[refs2 .last -- mkfs(class0, ty2, fieldvar0) ']) ∧ r0 = st[refs2 .last -- mkfs(class0, ty2, fieldvar0) '] .refval ∧ ¬ st[st[refs2 .last -- mkfs(class0, ty2, fieldvar0) '] .refval -- _type] .type ≤ ty2 ∨ is_array(refs2 .last, st) ∧ 0 ≤ i ∧ i < st[refs2 .last -- _length] .intval ∧ is_referencevalue(st[refs2 .last -- i ']) ∧ r0 = st[refs2 .last -- i '] .refval ∧ ¬ st[st[refs2 .last -- i '] .refval -- _type] .type ≤ st[refs2 .last -- _type] .type .type ⊦ refs2 = [], r0 = jvmref, r = jvmref, ∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ']) ∧ r2 = st[r -- fs '] .refval ∧ validrefs(str, st[r -- fs '] .refval ' + refs2, fs .type, st) |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ is_referencevalue(refval(r))], [CSIMPSEQ : ⊦ refval(r) .refval = r])], [EXTRATERMS : (mkfs(class, ty1, fieldvar))]]