| r0 -- mkfs(class0, ty0, fieldvar0) ' = r -- mkfs(class, short_type, fieldvar) ', is_shortvalue(st[r -- mkfs(class, short_type, fieldvar) ']), is_obj(str, r0, st[r -- mkfs(class, short_type, fieldvar) ', shortval(sho)]), st[r0 -- _type] .type ≤ ty, refs1 = [] ∨ mkfs(class0, ty0, fieldvar0) ' ∈ instfields(st[r0 -- _type] .type .class) ∧ is_referencevalue(st[r -- mkfs(class, short_type, fieldvar) ', shortval(sho)][r0 -- mkfs(class0, ty0, fieldvar0) ']) ∧ refs1 .first = (st[r -- mkfs(class, short_type, fieldvar) ', shortval(sho)][r0 -- mkfs(class0, ty0, fieldvar0) ']) .refval ∧ validrefs(str, refs1, ty0, st[r -- mkfs(class, short_type, fieldvar) ', shortval(sho)]), ∀ sho, fieldvar, class, r, st, ty, str, refs. # refs < # (r0 + refs1) → ( validrefs(str, refs, ty, st[r -- mkfs(class, short_type, fieldvar) ', shortval(sho)]) ∧ is_shortvalue(st[r -- mkfs(class, short_type, fieldvar) ']) → refs = [] ∨ junkref(str, refs .first, st) ∨ validrefs(str, refs, ty, st)) ⊦ r0 = jvmref, junkref(str, r0, st), validrefs(str, r0 ' + refs1, ty, st) |
is_shortvalue(st[r -- mkfs(class, short_type, fieldvar) ']), is_obj(str, r, st[r -- mkfs(class, short_type, fieldvar) ', shortval(sho)]), st[r -- _type] .type ≤ ty, ∀ sho, fieldvar, class, r1, st, ty, str, refs. # refs < # (r + []) → ( validrefs(str, refs, ty, st[r1 -- mkfs(class, short_type, fieldvar) ', shortval(sho)]) ∧ is_shortvalue(st[r1 -- mkfs(class, short_type, fieldvar) ']) → refs = [] ∨ junkref(str, refs .first, st) ∨ validrefs(str, refs, ty, st)) ⊦ r = jvmref, junkref(str, r, st), validrefs(str, r ', ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ refs + [] = refs], [CSIMPSEQ : ⊦ ¬ is_referencevalue(shortval(sho))], [CSIMPSEQ : ⊦ (st[rk, val][rk]) = val], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) = mkfs(class0, ty0, fieldvar0) ↔ class = class0 ∧ ty = ty0 ∧ fieldvar = fieldvar0], [CSIMPSEQ : ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0])]]