Set whether we should print expressions with extra parentheses even where they are not needed.
(vl-ps-update-copious-parens copiousp &key (ps 'ps)) → ps
Function:
(defun vl-ps-update-copious-parens-fn (copiousp ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (booleanp copiousp))) (let ((__function__ 'vl-ps-update-copious-parens)) (declare (ignorable __function__)) (let* ((misc (vl-ps->misc)) (misc (remove-from-alist :vl-copious-parens misc))) (vl-ps-update-misc (acons :vl-copious-parens (and copiousp t) misc)))))
Theorem:
(defthm vl-ps-update-copious-parens-fn-of-bool-fix-copiousp (equal (vl-ps-update-copious-parens-fn (acl2::bool-fix copiousp) ps) (vl-ps-update-copious-parens-fn copiousp ps)))
Theorem:
(defthm vl-ps-update-copious-parens-fn-iff-congruence-on-copiousp (implies (iff copiousp copiousp-equiv) (equal (vl-ps-update-copious-parens-fn copiousp ps) (vl-ps-update-copious-parens-fn copiousp-equiv ps))) :rule-classes :congruence)