| sk ' + sks1 ≠ [], sk ∈ fis, (addobj(r, class, fis, st)[fis[sk] .refval -- sks1]) = refval(r0), fis .keys = instfields(class), (addobj(r, class, fis, st)[r -- sks0]) = refval(r0), validfieldinits(str, fis, st), newref(r, st), fits(r, sks0, addobj(r, class, fis, st)), r ≠ jvmref ∧ is_referencevalue(addobj(r, class, fis, st)[r -- (sk ' + sks1) .first]) ∧ ( is_classtype((addobj(r, class, fis, st)[r -- _type]) .type) → (sk ' + sks1) .first ∈ instfields((addobj(r, class, fis, st)[r -- _type]) .type .class)) ∧ ( is_arraytype((addobj(r, class, fis, st)[r -- _type]) .type) → is_indexkey((sk ' + sks1) .first) ∧ 0 ≤ (sk ' + sks1) .first .index ∧ (sk ' + sks1) .first .index < (addobj(r, class, fis, st)[r -- _length]) .intval) ∧ fits((addobj(r, class, fis, st)[r -- (sk ' + sks1) .first]) .refval, (sk ' + sks1) .rest, addobj(r, class, fis, st)), disjoint(str, fis .vals .nonnullrefs, st), is_referencevalue(addobj(r, class, fis, st)[r -- (sk ' + sks1)]) ⊦ r = jvmref, r0 = jvmref, sks0 = [], sks0 = sk ' + sks1, junkref(str, r, addobj(r, class, fis, st)), hasSharing(fis .vals .nonnullrefs, st), dups(fis .vals .nonnullrefs) |
(addobj(r, class, fis, st)[fis[sk] .refval -- sks1]) = refval(r0), fis .keys = instfields(class), (addobj(r, class, fis, st)[r -- sks0]) = refval(r0), disjoint(str, fis .vals .nonnullrefs, st), is_referencevalue(addobj(r, class, fis, st)[r -- (sk ' + sks1)]), sk ∈ fis, validfieldinits(str, fis, st), newref(r, st), fits(r, sks0, addobj(r, class, fis, st)), is_referencevalue(fis[sk]), fits(fis[sk] .refval, sks1, addobj(r, class, fis, st)), sk ∈ instfields(class) ⊦ r0 = jvmref, sks0 = [], sks0 = sk ' + sks1, r = jvmref, junkref(str, r, addobj(r, class, fis, st)), hasSharing(fis .vals .nonnullrefs, st), dups(fis .vals .nonnullrefs)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : javatype, , test-28, ⊦ ¬ is_arraytype (mkclasstype(class))], [CSIMPNAMEDSEQ : javatype, , sel-02, ⊦ mkclasstype(class) .class = class], [CSIMPNAMEDSEQ : javatype, , test-10, ⊦ is_classtype (mkclasstype(class))], [CSIMPNAMEDSEQ : javavalue, , sel-11, ⊦ typeval(ty) .type = ty], [CSIMPNAMEDSEQ : addfuns, , add-type, ¬ _type ∈ fis ⊦ (addobj(r, class1, fis, st) [r -- _type ] ) = typeval(mkclasstype(class1))], [CSIMPNAMEDSEQ : addfuns, , instfields-type, ⊦ fis .keys = instfields(class) → ¬ _type ∈ fis], [CSIMPNAMEDSEQ : list, storekeys, c-07, ⊦ (sk ' + sks) .rest = sks], [CSIMPNAMEDSEQ : addfuns, , add-in-09, ⊦ sk ∈ fis → (addobj(r, class, fis, st) [r -- sk ] ) = fis[sk]], [CSIMPNAMEDSEQ : list, storekeys, c-08, ⊦ (sk ' + sks) .first = sk], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPNAMEDSEQ : list, storekeys, e-01, ⊦ sk ' + sks ≠ []])]]