(vl-ppst->activep &key (ppst 'ppst)) → activep
Function:
(defun vl-ppst->activep$inline (ppst) (declare (xargs :stobjs (ppst))) (declare (xargs :guard t)) (let ((__function__ 'vl-ppst->activep)) (declare (ignorable __function__)) (mbe :logic (acl2::bool-fix (vl-ppst->activep-raw ppst)) :exec (vl-ppst->activep-raw ppst))))
Theorem:
(defthm booleanp-of-vl-ppst->activep (b* ((activep (vl-ppst->activep$inline ppst))) (booleanp activep)) :rule-classes :type-prescription)