Constraints induced by parse-dec-val.
Theorem: constraints-from-parse-dec-val
(defthm constraints-from-parse-dec-val (implies (not (mv-nth 0 (parse-dec-val input))) (member-equal (car input) (chars=>nats '(#\D #\d)))))