(pseudo-fn-p x) → *
Function:
(defun pseudo-fn-p (x) (declare (xargs :guard t)) (let ((__function__ 'pseudo-fn-p)) (declare (ignorable __function__)) (if (consp x) (pseudo-lambda-p x) (pseudo-fnsym-p x))))
Theorem:
(defthm pseudo-fn-p-when-consp (implies (and (pseudo-fn-p x) (consp x)) (pseudo-lambda-p x)))
Theorem:
(defthm pseudo-fn-p-when-not-consp (implies (and (pseudo-fn-p x) (not (consp x))) (pseudo-fnsym-p x)))
Theorem:
(defthm pseudo-fn-p-when-lambda (implies (pseudo-lambda-p x) (pseudo-fn-p x)))
Theorem:
(defthm pseudo-fn-p-when-fnsym (implies (pseudo-fnsym-p x) (pseudo-fn-p x)))