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