| st[r -- _type] = typeval(mkarraytype(ty0)), fis .keys = statfields(class), compatmode(str, st), compatstatic(str, st), okfieldinits(class, fis), r -- _type ∈ st, r ∈ st, ¬ has_classtype(ty0) ∨ tdname+∃(str, ty0 .jtelemtype .class), ¬ has_classtype(ty0) ∨ class∃(str, ty0 .jtelemtype .class) ∨ interface∃(str, ty0 .jtelemtype .class) ∨ is_predefined_class(ty0 .jtelemtype .class) → compatarray(str, r, st) ⊦ r = jvmref, is_arraytype((addclass(class, fis, st)[r -- _type]) .type) ∧ r -- _length ∈ addclass(class, fis, st) ∧ is_integervalue(addclass(class, fis, st)[r -- _length]) ∧ 0 ≤ (addclass(class, fis, st)[r -- _length]) .intval ∧ is_arrayref(r, (addclass(class, fis, st)[r -- _length]) .intval, addclass(class, fis, st)) ∧ (∀ j. 0 ≤ j ∧ j < (addclass(class, fis, st)[r -- _length]) .intval → compat(str, addclass(class, fis, st)[r -- j '], (addclass(class, fis, st)[r -- _type]) .type .type, addclass(class, fis, st))) |
fis .keys = statfields(class), st[r -- _type] = typeval(mkarraytype(ty0)), r ∈ st, r -- _type ∈ st, okfieldinits(class, fis), compatstatic(str, st), compatmode(str, st), ¬ has_classtype(ty0) ∨ class∃(str, ty0 .jtelemtype .class) ∨ interface∃(str, ty0 .jtelemtype .class) ∨ is_predefined_class(ty0 .jtelemtype .class) → compatarray(str, r, st), ¬ has_classtype(ty0) ∨ tdname+∃(str, ty0 .jtelemtype .class) ⊦ r = jvmref, (0 ≤ j ∧ j < st[r -- _length] .intval → compat(str, st[r -- j '], ty0, addclass(class, fis, st))) ∧ is_arrayref(r, st[r -- _length] .intval, st) ∧ ¬ st[r -- _length] .intval < 0 ∧ is_integervalue(st[r -- _length]) ∧ r -- _length ∈ addclass(class, fis, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkarraytype(ty) .type = ty], [CSIMPSEQ : ⊦ is_arraytype(mkarraytype(ty))], [CSIMPSEQ : ⊦ typeval(ty) .type = ty], [CSIMPSEQ : ⊦ is_arrayref (r, i, addclass(class1, fis, st)) ↔ is_arrayref(r, i, st)], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : r ≠ jvmref ⊦ (addclass(class1, fis, st) [r -- sk ] ) = st[r -- sk]])]]