Top level skip-detection for a design.
(sd-analyze-design x) → probs
Function:
(defun sd-analyze-design (x) (declare (xargs :guard (vl-design-p x))) (let ((__function__ 'sd-analyze-design)) (declare (ignorable __function__)) (b* ((x (vl-design-fix x)) (mods (vl-design->mods x))) (sd-analyze-modulelist mods))))
Theorem:
(defthm sd-problemlist-p-of-sd-analyze-design (b* ((probs (sd-analyze-design x))) (sd-problemlist-p probs)) :rule-classes :rewrite)