Pretty-print a vl-reportcard-p into a string.
(vl-reportcard-to-string x &key (elide '3)) → str
See also vl-print-reportcard.
Function:
(defun vl-reportcard-to-string-fn (x elide) (declare (xargs :guard (and (vl-reportcard-p x) (maybe-natp elide)))) (let ((__function__ 'vl-reportcard-to-string)) (declare (ignorable __function__)) (with-local-ps (vl-print-reportcard x :elide elide))))
Theorem:
(defthm stringp-of-vl-reportcard-to-string (b* ((str (vl-reportcard-to-string-fn x elide))) (stringp str)) :rule-classes :type-prescription)
Theorem:
(defthm vl-reportcard-to-string-fn-of-vl-reportcard-fix-x (equal (vl-reportcard-to-string-fn (vl-reportcard-fix x) elide) (vl-reportcard-to-string-fn x elide)))
Theorem:
(defthm vl-reportcard-to-string-fn-vl-reportcard-equiv-congruence-on-x (implies (vl-reportcard-equiv x x-equiv) (equal (vl-reportcard-to-string-fn x elide) (vl-reportcard-to-string-fn x-equiv elide))) :rule-classes :congruence)
Theorem:
(defthm vl-reportcard-to-string-fn-of-maybe-natp-fix-elide (equal (vl-reportcard-to-string-fn x (maybe-natp-fix elide)) (vl-reportcard-to-string-fn x elide)))
Theorem:
(defthm vl-reportcard-to-string-fn-maybe-nat-equiv-congruence-on-elide (implies (acl2::maybe-nat-equiv elide elide-equiv) (equal (vl-reportcard-to-string-fn x elide) (vl-reportcard-to-string-fn x elide-equiv))) :rule-classes :congruence)