Constructor for :quote pseudo-terms.
(pseudo-term-quote val) → term
Function:
(defun pseudo-term-quote (val) (declare (xargs :guard t)) (let ((__function__ 'pseudo-term-quote)) (declare (ignorable __function__)) (list 'quote val)))
Theorem:
(defthm pseudo-termp-of-pseudo-term-quote (b* ((term (pseudo-term-quote val))) (pseudo-termp term)) :rule-classes :rewrite)
Theorem:
(defthm kind-of-pseudo-term-quote (equal (pseudo-term-kind (pseudo-term-quote val)) :quote))
Theorem:
(defthm pseudo-term-quote->val-of-pseudo-term-quote (equal (pseudo-term-quote->val (pseudo-term-quote val)) val))
Theorem:
(defthm pseudo-term-quote-of-accessors (implies (equal (pseudo-term-kind x) :quote) (equal (pseudo-term-quote (pseudo-term-quote->val x)) (pseudo-term-fix x))))
Theorem:
(defthm base-ev-of-pseudo-term-quote (equal (base-ev (pseudo-term-quote val) a) val))