(vl-print-reportcard-aux x elide &key (ps 'ps)) → ps
Function:
(defun vl-print-reportcard-aux-fn (x elide ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (and (vl-reportcard-p x) (maybe-natp elide)))) (let ((__function__ 'vl-print-reportcard-aux)) (declare (ignorable __function__)) (b* ((x (vl-reportcard-fix x)) (elide (maybe-natp-fix elide)) ((when (atom x)) ps) ((cons name warnings) (car x))) (vl-ps-seq (vl-print-warnings-with-named-header (if (equal name :design) "Design Root" name) (vl-elide-warnings warnings elide)) (vl-println "") (vl-print-reportcard-aux (cdr x) elide)))))
Theorem:
(defthm vl-print-reportcard-aux-fn-of-vl-reportcard-fix-x (equal (vl-print-reportcard-aux-fn (vl-reportcard-fix x) elide ps) (vl-print-reportcard-aux-fn x elide ps)))
Theorem:
(defthm vl-print-reportcard-aux-fn-vl-reportcard-equiv-congruence-on-x (implies (vl-reportcard-equiv x x-equiv) (equal (vl-print-reportcard-aux-fn x elide ps) (vl-print-reportcard-aux-fn x-equiv elide ps))) :rule-classes :congruence)
Theorem:
(defthm vl-print-reportcard-aux-fn-of-maybe-natp-fix-elide (equal (vl-print-reportcard-aux-fn x (maybe-natp-fix elide) ps) (vl-print-reportcard-aux-fn x elide ps)))
Theorem:
(defthm vl-print-reportcard-aux-fn-maybe-nat-equiv-congruence-on-elide (implies (acl2::maybe-nat-equiv elide elide-equiv) (equal (vl-print-reportcard-aux-fn x elide ps) (vl-print-reportcard-aux-fn x elide-equiv ps))) :rule-classes :congruence)