Tree matching theorem for parse-dash-1*hexdig.
Theorem:
(defthm tree-match-of-parse-dash-1*hexdig (b* (((mv error? tree? &) (parse-dash-1*hexdig input))) (implies (and (not error?) (equal element (!_ (/_ "-" (1*_ *hexdig*))))) (tree-match-element-p tree? element *grammar*))))