| validrefs(str, (r ' + refs0) + r ' + refs1, ty, st) ⊦ validrefs(str, r ' + refs1, ty, st) |
⊦ ¬ validrefs(str, refs0, st[refs0 .first -- _type] .type, st) ∧ refs0 ≠ [] → ¬ validrefs(str, refs + refs0, ty, st)
¬ (¬ validrefs(str, r ' + refs1, st[(r ' + refs1) .first -- _type] .type, st) ∧ r ' + refs1 ≠ []), validrefs(str, (r ' + refs0) + r ' + refs1, ty, st) ⊦ validrefs(str, r ' + refs1, ty, st)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, ty, r ' + refs1, r ' + refs0, str)]]