⊦ is_valid_ref(r, st) ↔ is_obj(r, st) ∨ is_array(r, st)
⊦ newref(r, st) → ¬ is_obj(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ newref(r, st) → ¬ is_array(r, st)])], [EXTRATERMS : (st, r)]]