FGL binder that checks whether X is syntactically a Boolean.
(check-booleanp ans x) → *
See fgl-syntactic-checker-binders and see binder for details.
Function:
(defun check-booleanp (ans x) (declare (xargs :guard t)) (let ((__function__ 'check-booleanp)) (declare (ignorable __function__)) (and (booleanp x) ans t)))
Theorem:
(defthm check-booleanp-implies-booleanp (implies (check-booleanp ans x) (booleanp x)) :rule-classes :forward-chaining)