(vl-ppst->defmap &key (ppst 'ppst)) → map
Function:
(defun vl-ppst->defmap$inline (ppst) (declare (xargs :stobjs (ppst))) (declare (xargs :guard t)) (let ((__function__ 'vl-ppst->defmap)) (declare (ignorable __function__)) (mbe :logic (vl-def-use-map-fix (vl-ppst->defmap-raw ppst)) :exec (vl-ppst->defmap-raw ppst))))
Theorem:
(defthm vl-def-use-map-p-of-vl-ppst->defmap (b* ((map (vl-ppst->defmap$inline ppst))) (vl-def-use-map-p map)) :rule-classes :rewrite)