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