Constructor for null pseudo-terms. Just returns NIL.
(pseudo-term-null) → term
Function:
(defun pseudo-term-null nil (declare (xargs :guard t)) (let ((__function__ 'pseudo-term-null)) (declare (ignorable __function__)) nil))
Theorem:
(defthm pseudo-termp-of-pseudo-term-null (b* ((term (pseudo-term-null))) (pseudo-termp term)) :rule-classes :rewrite)
Theorem:
(defthm kind-of-pseudo-term-null (equal (pseudo-term-kind (pseudo-term-null)) :null))
Theorem:
(defthm base-ev-of-pseudo-term-null (equal (base-ev (pseudo-term-null) a) nil))
Theorem:
(defthm base-ev-when-pseudo-term-null (implies (equal (pseudo-term-kind x) :null) (equal (base-ev x a) nil)))
Theorem:
(defthm pseudo-term-fix-when-pseudo-term-null (implies (equal (pseudo-term-kind x) :null) (equal (pseudo-term-fix x) (pseudo-term-null))))