Beta transform, not ready for public release.
Theorem:
(defthm vl-design-p-of-vl-design-constcheck-hook (vl-design-p (vl-design-constcheck-hook x limit)))
Function:
(defun vl-design-constcheck-hook-default (x limit) (declare (xargs :guard (and (vl-design-p x) (natp limit))) (ignorable limit)) (vl-design-fix x))