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