Parsing failure propagation from "." to ("." 1*DIGIT).
Theorem: fail-dot-1*digit-when-fail-dot
(defthm fail-dot-1*digit-when-fail-dot (implies (mv-nth 0 (parse-ichar #\. input)) (mv-nth 0 (parse-dot-1*digit input))))