anchor.diff:          :define t
           :forward t
           :topic smtlink-hint-syntax-p))
  -;;    )
  +    )
   
     ;; -------------------------------------------------------------------------
   
  
positive.code:       :short "Fixing function for smtlink-hint-syntax."
        :returns (fixed-smtlink-hint-syntax smtlink-hint-syntax-p)
        (mbe :logic (if (smtlink-hint-syntax-p term) term nil)
             :exec term))
  
      (encapsulate ()
        (local (in-theory (enable smtlink-hint-syntax-fix)))
  
negative.code:     :measure (len user-hint)
      :short "Combining user-hints into smt-hint."
      :guard-hints (("Goal"
                     :in-theory (e/d (smtlink-hint-syntax-fix
                                      smtlink-hint-syntax-p smtlink-hint-syntax-p-helper)
                                     (everything-about-smtlink-syntax-p
                                      smtlink-hint-syntax-p-helper-preserve))
                     :use ((:instance everything-about-smtlink-syntax-p (term user-hint))
                           (:instance smtlink-hint-syntax-p-helper-preserve))))
      (b* ((hint (smtlink-hint-fix hint))
           (user-hint (smtlink-hint-syntax-fix user-hint))
  