| ⊦ okbytearray(r, st) → is_array(str, r, st) |
⊦ is_array(str, r, st) ↔ ¬ ¬ ( type∃(str, st[r -- _type] .type) ∧ st[r -- _type] .type .jtelemtype ≠ void_type ∧ st[r -- _type] .type .jtelemtype ≠ abstract_type ∧ is_array(r, st))
⊦ okbytearray(r, st) → st[r -- _type] = typeval(mkarraytype(byte_type))
okbytearray(r, st) ⊦ is_array(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ byte_type ≠ abstract_type], [CSIMPSEQ : ⊦ byte_type ≠ void_type], [CSIMPSEQ : ⊦ byte_type .jtelemtype = byte_type], [CSIMPSEQ : ⊦ mkarraytype(ty) .jtelemtype = ty .jtelemtype], [CSIMPSEQ : ⊦ type∃(str, byte_type)], [CSIMPSEQ : ⊦ type∃(str, mkarraytype(ty)) ↔ type∃(str, ty)], [CSIMPSEQ : ⊦ typeval(ty) .type = ty])]]