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