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