| is_primtype(ty), okreftype(refval(r), mkarraytype(ty), st), r -- _length ∈ st, is_arrayref(r, st[r -- _length] .intval, st), is_array(r, st), r ∈ st, 0 ≤ st[r -- _length] .intval, ¬ st[r -- _type] .type ≤ mkarraytype(ty) ∨ st[r -- _type] .type .jtelemtype = abstract_type ∨ st[r -- _type] .type .jtelemtype = void_type ∨ ¬ type∃(str, st[r -- _type] .type), ∀ j. ¬ j < 0 ∧ ¬ st[r -- _length] .intval ≤ j → okval(st[r -- j '], ty) ⊦ r = jvmref |
⊦ okreftype(val, ty, st) ↔ is_referencevalue(val) ∧ (val .refval ≠ jvmref → val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ ty)
is_primtype(ty), is_referencevalue(refval(r)) ∧ ( refval(r) .refval ≠ jvmref → refval(r) .refval -- _type ∈ st ∧ is_typevalue(st[refval(r) .refval -- _type]) ∧ st[refval(r) .refval -- _type] .type ≤ mkarraytype(ty)), r -- _length ∈ st, is_arrayref(r, st[r -- _length] .intval, st), is_array(r, st), r ∈ st, 0 ≤ st[r -- _length] .intval, ¬ st[r -- _type] .type ≤ mkarraytype(ty) ∨ st[r -- _type] .type .jtelemtype = abstract_type ∨ st[r -- _type] .type .jtelemtype = void_type ∨ ¬ type∃(str, st[r -- _type] .type), ∀ j. ¬ j < 0 ∧ ¬ st[r -- _length] .intval ≤ j → okval(st[r -- j '], ty) ⊦ r = jvmref
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, mkarraytype(ty), refval(r))]]