| ¬ (r ≠ jvmref ∧ ¬ is_valid_ref(str, r, st)), sk .fs = mkfs(class, ty, fieldvar), st[r -- sk] = refval(r0), unchanged(str, r, st, st0), is_arraytype(st[r -- _type] .type), is_indexkey(sk), sk .index < st[r -- _length] .intval, 0 ≤ sk .index, 0 < st[r -- _length] .intval ⊦ r = jvmref, junkref(str, r, st), unchanged(str, r0, st, st0) |
sk .fs = mkfs(class, ty, fieldvar), st[r -- sk] = refval(r0), unchanged(str, r, st, st0), is_arraytype(st[r -- _type] .type), is_indexkey(sk), sk .index < st[r -- _length] .intval, 0 ≤ sk .index, 0 < st[r -- _length] .intval, is_array(str, r, st) ⊦ r = jvmref, junkref(str, r, st), unchanged(str, r0, st, st0)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : addfuns, , is_valid_ref-array-01, ⊦ is_arraytype (st[r -- _type] .type) ∧ r ≠ jvmref → ( is_valid_ref(str, r, st) ↔ is_array(str, r, st))])]]