FGL binder that checks whether X is syntactically a
(check-int-endp ans x) → *
See fgl-syntactic-checker-binders and see binder for details.
Function:
(defun check-int-endp (ans x) (declare (xargs :guard (integerp x))) (let ((__function__ 'check-int-endp)) (declare (ignorable __function__)) (and (int-endp x) ans t)))
Theorem:
(defthm check-int-endp-fn-implies-int-endp (implies (acl2::rewriting-negative-literal (cons 'check-int-endp (cons ans (cons x 'nil)))) (iff (check-int-endp ans x) (and (int-endp x) (hide (check-int-endp ans x))))))