| st1[r1 -- fs '] = refval(r2), st1[r1 -- _type] .type = mkclasstype(class), st[r -- _type] = st1[r1 -- _type], ps=(st[r -- fs '] .refval, st, r2, st1), fs ' ∈ instfields(class), is_obj(str, r1, st1), is_obj(str, r, st) ∨ is_array(str, r, st), ∀ fs. fs ' ∈ instfields(class) ∧ is_referencevalue(st[r -- fs ']) → ps=(st[r -- fs '] .refval, st, st1[r1 -- fs '] .refval, st1), ∀ fs. fs ' ∈ instfields(class) ∧ ¬ is_referencevalue(st[r -- fs ']) → st[r -- fs '] = st1[r1 -- fs '], ∀ st, r, st0, r0, str0. maxpath(str0, r0, st0) < maxpath(str, r1, st1) → ( true → ( ¬ cyclic(str0, r, st) ∧ ¬ cyclic(str0, r0, st0) ∧ ¬ junkref(str0, r, st) ∧ ¬ junkref(str0, r0, st0) → (ps=(r, st, r0, st0) → ps=(r0, st0, r, st)))) ⊦ r1 = jvmref, r = jvmref, cyclic(str, r, st), cyclic(str, r1, st1), junkref(str, r, st), junkref(str, r1, st1), ps=(r2, st1, st[r -- fs '] .refval, st), ¬ cyclic(str, st[r -- fs '] .refval, st) ∧ ¬ cyclic(str, r2, st1) ∧ ¬ junkref(str, st[r -- fs '] .refval, st) ∧ ¬ junkref(str, r2, st1) |
⊦ ¬ is_arraytype(st[r -- _type] .type) → ¬ is_array(str, r, st)
¬ is_arraytype(st[r -- _type] .type), st1[r1 -- fs '] = refval(r2), st1[r1 -- _type] .type = mkclasstype(class), st[r -- _type] = st1[r1 -- _type], ps=(st[r -- fs '] .refval, st, r2, st1), fs ' ∈ instfields(class), is_obj(str, r1, st1), is_obj(str, r, st) ∨ false, ∀ fs. fs ' ∈ instfields(class) ∧ is_referencevalue(st[r -- fs ']) → ps=(st[r -- fs '] .refval, st, st1[r1 -- fs '] .refval, st1), ∀ fs. fs ' ∈ instfields(class) ∧ ¬ is_referencevalue(st[r -- fs ']) → st[r -- fs '] = st1[r1 -- fs '], ∀ st, r, st0, r0, str0. maxpath(str0, r0, st0) < maxpath(str, r1, st1) → ( true → ( ¬ cyclic(str0, r, st) ∧ ¬ cyclic(str0, r0, st0) ∧ ¬ junkref(str0, r, st) ∧ ¬ junkref(str0, r0, st0) → (ps=(r, st, r0, st0) → ps=(r0, st0, r, st)))) ⊦ r1 = jvmref, r = jvmref, cyclic(str, r, st), cyclic(str, r1, st1), junkref(str, r, st), junkref(str, r1, st1), ps=(r2, st1, st[r -- fs '] .refval, st), ¬ cyclic(str, st[r -- fs '] .refval, st) ∧ ¬ cyclic(str, r2, st1) ∧ ¬ junkref(str, st[r -- fs '] .refval, st) ∧ ¬ junkref(str, r2, st1)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_arraytype (st[r -- _type] .type) → ¬ is_obj(str, r, st)], [CSIMPSEQ : ⊦ ¬ is_arraytype(mkclasstype(class))])], [EXTRATERMS : (st, r, str)]]