| (addarray(r, ty, mkjavavalues(refs), st)[r -- sks0]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- sks]) = refval(r0), newref(r, st), validreflist(str, mkjavavalues(refs), ty, st), disjoint(str, refs, st), fits(r, sks, addarray(r, ty, mkjavavalues(refs), st)), fits(r, sks0, addarray(r, ty, mkjavavalues(refs), st)) ⊦ sks0 = sks, sks0 = [], sks = [], r0 = jvmref, r = jvmref, hasSharing(refs, st), dups(refs) |
⊦ 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))
sks ≠ [], (addarray(r, ty, mkjavavalues(refs), st)[r -- sks0]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- sks]) = refval(r0), newref(r, st), validreflist(str, mkjavavalues(refs), ty, st), disjoint(str, refs, st), r ≠ jvmref ∧ is_referencevalue(addarray(r, ty, mkjavavalues(refs), st)[r -- sks .first]) ∧ ( is_classtype((addarray(r, ty, mkjavavalues(refs), st)[r -- _type]) .type) → sks .first ∈ instfields((addarray(r, ty, mkjavavalues(refs), st)[r -- _type]) .type .class)) ∧ ( is_arraytype((addarray(r, ty, mkjavavalues(refs), st)[r -- _type]) .type) → is_indexkey(sks .first) ∧ 0 ≤ sks .first .index ∧ sks .first .index < (addarray(r, ty, mkjavavalues(refs), st)[r -- _length]) .intval) ∧ fits((addarray(r, ty, mkjavavalues(refs), st)[r -- sks .first]) .refval, sks .rest, addarray(r, ty, mkjavavalues(refs), st)), fits(r, sks0, addarray(r, ty, mkjavavalues(refs), st)) ⊦ sks0 = sks, sks0 = [], sks = [], r0 = jvmref, r = jvmref, hasSharing(refs, st), dups(refs)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (addarray(r, ty, mkjavavalues(refs), st), sks, r)]]