| st[r0 -- _type] = typeval(mkarraytype(ty1)), compat(str, val, ty, st), compatstatic(str, st), compatmode(str, st), r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st, r0 ∈ st, ¬ has_classtype(ty1) ∨ tdname+∃(str, ty1 .jtelemtype .class), ¬ has_classtype(ty1) ∨ class∃(str, ty1 .jtelemtype .class) ∨ interface∃(str, ty1 .jtelemtype .class) ∨ is_predefined_class(ty1 .jtelemtype .class) → compatarray(str, r0, st) ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, is_arraytype((st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- _type]) .type) ∧ r0 -- _length ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ∧ is_integervalue(st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- _length]) ∧ 0 ≤ (st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- _length]) .intval ∧ is_arrayref(r0, (st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- _length]) .intval, st[r -- mkfs(class, ty, fieldvar) ', val]) ∧ (∀ j. 0 ≤ j ∧ j < (st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- _length]) .intval → compat (str, st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- j '], (st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- _type]) .type .type, st[r -- mkfs(class, ty, fieldvar) ', val])) |
st[r0 -- _type] = typeval(mkarraytype(ty1)), r0 ∈ st, r0 -- _type ∈ st, r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], compatmode(str, st), compatstatic(str, st), compat(str, val, ty, st), ¬ has_classtype(ty1) ∨ class∃(str, ty1 .jtelemtype .class) ∨ interface∃(str, ty1 .jtelemtype .class) ∨ is_predefined_class(ty1 .jtelemtype .class) → compatarray(str, r0, st), ¬ has_classtype(ty1) ∨ tdname+∃(str, ty1 .jtelemtype .class) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, r0 = jvmref, (0 ≤ j ∧ j < st[r0 -- _length] .intval → compat(str, st[r0 -- j '], ty1, st[r -- mkfs(class, ty, fieldvar) ', val])) ∧ is_arrayref(r0, st[r0 -- _length] .intval, st) ∧ ¬ st[r0 -- _length] .intval < 0 ∧ is_integervalue(st[r0 -- _length]) ∧ r0 -- _length ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkarraytype(ty) .type = ty], [CSIMPSEQ : ⊦ is_arraytype(mkarraytype(ty))], [CSIMPSEQ : ⊦ typeval(ty) .type = ty], [CSIMPSEQ : ⊦ (st[r0 -- fs ', val][r -- i ']) = st[r -- i ']], [CSIMPSEQ : ⊦ is_arrayref (r, i, st[r0 -- fs ', val]) ↔ is_arrayref(r, i, st)], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ sk ≠ sk0 → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st], [CSIMPSEQ : ⊦ ty ≠ void_type → (st[ r -- mkfs (class, ty, fieldvar) ', val] [r0 -- _type ] ) = st[r0 -- _type]])]]