(4vs-x) returns
This is potentially nicer than using
Function:
(defun 4vs-x$inline nil (declare (xargs :guard t)) *4vx-sexpr*)
Theorem:
(defthm 4v-sexpr-eval-of-4vs-x (equal (4v-sexpr-eval (4vs-x) env) (4vx)))
Theorem:
(defthm 4v-sexpr-vars-of-4vs-x (equal (4v-sexpr-vars (4vs-x)) nil))