Lift
(tterm-case-constant-listp x) → std::bool
This checks if all the terms in a list are quoted constants.
Function:
(defun tterm-case-constant-listp (x) (declare (xargs :guard (tterm-listp x))) (let ((__function__ 'tterm-case-constant-listp)) (declare (ignorable __function__)) (if (consp x) (and (tterm-case (car x) :constant) (tterm-case-constant-listp (cdr x))) (null x))))