Pretty-print a list of modules with comments to a plain-text string.
(vl-ppcs-modulelist x) → str
See also vl-ppc-modulelist.
Function:
(defun vl-ppcs-modulelist (x) (declare (xargs :guard (vl-modulelist-p x))) (let ((__function__ 'vl-ppcs-modulelist)) (declare (ignorable __function__)) (with-local-ps (vl-ppc-modulelist x nil))))
Theorem:
(defthm stringp-of-vl-ppcs-modulelist (b* ((str (vl-ppcs-modulelist x))) (stringp str)) :rule-classes :type-prescription)
Theorem:
(defthm vl-ppcs-modulelist-of-vl-modulelist-fix-x (equal (vl-ppcs-modulelist (vl-modulelist-fix x)) (vl-ppcs-modulelist x)))
Theorem:
(defthm vl-ppcs-modulelist-vl-modulelist-equiv-congruence-on-x (implies (vl-modulelist-equiv x x-equiv) (equal (vl-ppcs-modulelist x) (vl-ppcs-modulelist x-equiv))) :rule-classes :congruence)