Recognize the ACL2 built-in functions natively implemented in AIJ.
Function:
(defun aij-nativep (fn) (declare (xargs :guard (symbolp fn))) (let ((__function__ 'aij-nativep)) (declare (ignorable __function__)) (and (member-eq fn *aij-natives*) t)))
Theorem:
(defthm booleanp-of-aij-nativep (b* ((yes/no (aij-nativep fn))) (booleanp yes/no)) :rule-classes :rewrite)