| st[r -- sk] = st0[r -- sk], st0[r -- _type] = st[r -- _type], unchanged(str, st0[r -- sk] .refval, st, st0), unchanged(str, r, st, st0), is_referencevalue(st0[r -- sk]), fits(st0[r -- sk] .refval, sks0, st), fits(st0[r -- sk] .refval, sks0, st0), is_arraytype(st[r -- _type] .type), is_indexkey(sk), sk .index < st[r -- _length] .intval, st0[r -- _length] .intval ≤ sk .index, 0 ≤ sk .index, 0 < st[r -- _length] .intval, st0[r -- _length] .intval < st[r -- _length] .intval ⊦ st0[r -- _length] = st[r -- _length], r = jvmref, junkref(str, st0[r -- sk] .refval, st), junkref(str, r, st), is_array(str, r, st) |
⊦ r ≠ jvmref ∧ ¬ is_valid_ref(str, r, st) → junkref(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : addfuns, , is_valid_ref-01, ⊦ ¬ is_array(str, r, st) → ( is_valid_ref(str, r, st) ↔ is_obj(str, r, st))], [CSIMPNAMEDSEQ : addfuns, , is_obj-arraytype, ⊦ is_arraytype (st[r -- _type] .type) → ¬ is_obj(str, r, st)])], [EXTRATERMS : (st, r, str)]]