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