| fis[sk] = refval(r0), st[r0 -- sks] = refval(r2), st[r1 -- sks0] = refval(r2), fis .keys = instfields(class), fis[sk0] = refval(r1), sk0 ∈ fis, sk ∈ fis, fits(r1, sks0, st), fits(r0, sks, st), newref(r, st), validfieldinits(str, fis, st) ⊦ r0 = jvmref, r = jvmref, r2 = jvmref, r1 = r0, r1 = jvmref, sk = sk0, hasSharing(fis .vals .nonnullrefs, st), dups(fis .vals .nonnullrefs), junkref(str, r, addobj(r, class, fis, st)), (addobj(r, class, fis, st)[r -- (sk ' + sks)]) = (addobj(r, class, fis, st)[r -- (sk0 ' + sks0)]) ∧ (addobj(r, class, fis, st)[r -- (sk ' + sks)]) .refval ≠ jvmref ∧ fits(r, sk0 ' + sks0, addobj(r, class, fis, st)) ∧ fits(r0, sks, addobj(r, class, fis, st)) ∧ sk ∈ instfields(class) |
⊦ sks ≠ [] → ( fits(r, sks, st) ↔ r ≠ jvmref ∧ is_referencevalue(st[r -- sks .first]) ∧ (is_classtype(st[r -- _type] .type) → sks .first ∈ instfields(st[r -- _type] .type .class)) ∧ (is_arraytype(st[r -- _type] .type) → is_indexkey(sks .first) ∧ 0 ≤ sks .first .index ∧ sks .first .index < st[r -- _length] .intval) ∧ fits(st[r -- sks .first] .refval, sks .rest, st))
sk0 ' + sks0 ≠ [], fis[sk] = refval(r0), st[r0 -- sks] = refval(r2), st[r1 -- sks0] = refval(r2), fis .keys = instfields(class), fis[sk0] = refval(r1), sk0 ∈ fis, sk ∈ fis, fits(r1, sks0, st), fits(r0, sks, st), newref(r, st), validfieldinits(str, fis, st) ⊦ r0 = jvmref, r = jvmref, r2 = jvmref, r1 = r0, r1 = jvmref, sk = sk0, hasSharing(fis .vals .nonnullrefs, st), dups(fis .vals .nonnullrefs), junkref(str, r, addobj(r, class, fis, st)), (addobj(r, class, fis, st)[r -- (sk ' + sks)]) = (addobj(r, class, fis, st)[r -- (sk0 ' + sks0)]) ∧ (addobj(r, class, fis, st)[r -- (sk ' + sks)]) .refval ≠ jvmref ∧ r ≠ jvmref ∧ is_referencevalue(addobj(r, class, fis, st)[r -- (sk0 ' + sks0) .first]) ∧ ( is_classtype((addobj(r, class, fis, st)[r -- _type]) .type) → (sk0 ' + sks0) .first ∈ instfields((addobj(r, class, fis, st)[r -- _type]) .type .class)) ∧ ( is_arraytype((addobj(r, class, fis, st)[r -- _type]) .type) → is_indexkey((sk0 ' + sks0) .first) ∧ 0 ≤ (sk0 ' + sks0) .first .index ∧ (sk0 ' + sks0) .first .index < (addobj(r, class, fis, st)[r -- _length]) .intval) ∧ fits((addobj(r, class, fis, st)[r -- (sk0 ' + sks0) .first]) .refval, (sk0 ' + sks0) .rest, addobj(r, class, fis, st)) ∧ fits(r0, sks, addobj(r, class, fis, st)) ∧ sk ∈ instfields(class)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : list, storekeys, app-02-ant, ⊦ ¬ sks + sks0 ≠ [] ↔ sks = [] ∧ sks0 = []], [CSIMPNAMEDSEQ : list, storekeys, e, ⊦ sk ' ≠ []], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1])], [EXTRATERMS : (addobj(r, class, fis, st), sk0 ' + sks0, r)]]