| ⊦ is_array(str, r0, st) ∧ okbytearray(r, st) → is_valid_ref(str, r0, st[r -- i ', byteval(by)]) |
⊦ is_valid_ref(str, r, st) ↔ is_obj(str, r, st) ∨ is_array(str, r, st)
⊦ is_obj(str, r, st[r0 -- i ', val]) ↔ is_obj(str, r, st)
⊦ is_array(str, r, st) → ¬ is_obj(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_array(str, r0, st) ∧ okbytearray(r, st) → is_array (str, r0, st[r -- i ', byteval(by)])])]]