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