Macro:
(defmacro vl-ps->autowrap-ind nil '(vl-ps->autowrap-ind-fn ps))
Function:
(defun vl-ps->autowrap-ind-fn$inline (ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard t)) (let ((__function__ 'vl-ps->autowrap-ind-fn)) (declare (ignorable __function__)) (mbe :logic (nfix (vl-ps->autowrap-ind-raw ps)) :exec (vl-ps->autowrap-ind-raw ps))))
Theorem:
(defthm natp-of-vl-ps->autowrap-ind-fn (b* ((autowrap-ind (vl-ps->autowrap-ind-fn$inline ps))) (natp autowrap-ind)) :rule-classes :type-prescription)