Fixing function for a hints-sytnax-p.
(hints-syntax-fix term) → fixed-term
Function:
(defun hints-syntax-fix (term) (declare (xargs :guard (hints-syntax-p term))) (let ((acl2::__function__ 'hints-syntax-fix)) (declare (ignorable acl2::__function__)) (mbe :logic (if (hints-syntax-p term) term nil) :exec term)))
Theorem:
(defthm hints-syntax-p-of-hints-syntax-fix (b* ((fixed-term (hints-syntax-fix term))) (hints-syntax-p fixed-term)) :rule-classes :rewrite)