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