Constructs a vl-reportcard-p for a design in terms of original design element names.
(vl-design-origname-reportcard x) → reportcard
This is like vl-design-reportcard but uses original, pre-unparameterized names where possible.
Unparameterization causes problems for printing warnings about each module,
because, e.g., instead of having warnings about
This function gathers up all warnings associated with each module, and
builds a vl-reportcard-p that maps
Function:
(defun vl-design-origname-reportcard (x) (declare (xargs :guard (vl-design-p x))) (let ((__function__ 'vl-design-origname-reportcard)) (declare (ignorable __function__)) (b* ((acc nil) (acc (vl-design-origname-reportcard-aux x acc)) (ret (vl-clean-reportcard acc))) (fast-alist-free acc) ret)))
Theorem:
(defthm vl-reportcard-p-of-vl-design-origname-reportcard (b* ((reportcard (vl-design-origname-reportcard x))) (vl-reportcard-p reportcard)) :rule-classes :rewrite)
Theorem:
(defthm vl-design-origname-reportcard-of-vl-design-fix-x (equal (vl-design-origname-reportcard (vl-design-fix x)) (vl-design-origname-reportcard x)))
Theorem:
(defthm vl-design-origname-reportcard-vl-design-equiv-congruence-on-x (implies (vl-design-equiv x x-equiv) (equal (vl-design-origname-reportcard x) (vl-design-origname-reportcard x-equiv))) :rule-classes :congruence)