anchor.diff:          :elt-type smtlink-option-name
           :true-listp t))
   
  -    (encapsulate ()
  -      (local (in-theory (enable smtlink-option-name-lst-fix)))
  -      (deffixtype smtlink-option-name-lst
  -        :pred  smtlink-option-name-lst-p
  -        :fix   smtlink-option-name-lst-fix
  -        :equiv smtlink-option-name-lst-equiv
  -        :define t
  -        :forward t
  -        :topic smtlink-option-name-lst-p))) ;; temporarily stop here
  -
       (defthm smtlink-option-name-fix-preserves-member
           (implies (member x used :test 'equal)
                    (member (smtlink-option-name-fix x)
  
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:         :define t
          :forward t
          :topic smtlink-hint-syntax-p))
      )
  
    ;; -------------------------------------------------------------------------
  
  