Recognize valid values of the
(input-files-preprocess-inputp x) → yes/no
Function:
(defun input-files-preprocess-inputp (x) (declare (xargs :guard t)) (let ((__function__ 'input-files-preprocess-inputp)) (declare (ignorable __function__)) (or (not x) (eq x :auto) (stringp x))))
Theorem:
(defthm booleanp-of-input-files-preprocess-inputp (b* ((yes/no (input-files-preprocess-inputp x))) (booleanp yes/no)) :rule-classes :rewrite)