Input decomposition theorem for parse-*digit.
Theorem: input-decomposition-of-parse-*digit
(defthm input-decomposition-of-parse-*digit (b* (((mv & trees rest-input) (parse-*digit input))) (equal (append (tree-list->string trees) rest-input) (nat-list-fix input))))