The symbol value for
(value-t) → value
Function:
(defun value-t nil (declare (xargs :guard t)) (let ((__function__ 'value-t)) (declare (ignorable __function__)) (value-symbol (lift-symbol t))))
Theorem:
(defthm valuep-of-value-t (b* ((value (value-t))) (valuep value)) :rule-classes :rewrite)