Set whether Verilog-2005
(vl-ps-update-show-atts showp &key (ps 'ps)) → ps
We want the default to be
Function:
(defun vl-ps-update-show-atts-fn (showp ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (booleanp showp))) (let ((__function__ 'vl-ps-update-show-atts)) (declare (ignorable __function__)) (let* ((hidep (not showp)) (misc (vl-ps->misc)) (misc (remove-from-alist :vl-hide-atts misc))) (vl-ps-update-misc (acons :vl-hide-atts hidep misc)))))
Theorem:
(defthm vl-ps-update-show-atts-fn-of-bool-fix-showp (equal (vl-ps-update-show-atts-fn (acl2::bool-fix showp) ps) (vl-ps-update-show-atts-fn showp ps)))
Theorem:
(defthm vl-ps-update-show-atts-fn-iff-congruence-on-showp (implies (iff showp showp-equiv) (equal (vl-ps-update-show-atts-fn showp ps) (vl-ps-update-show-atts-fn showp-equiv ps))) :rule-classes :congruence)