anchor.diff:          :define t
           :forward t
           :topic function-lst-syntax-p))
  +
  +    (in-theory (disable ;; set-equiv-if-true-set-equiv
  +                        ;; subsetp-if-true-set-equiv
  +                        ;; true-set-equiv-is-for-true-lists
  +                        function-option-name-fix-preserves-member
  +                        function-option-name-lst-fix-preserves-subsetp
  +                        function-option-name-lst-fix-preserves-set-equiv
  +                        function-option-name-lst-p-and-member
  +                        function-option-name-lst-p--monotonicity
  +                        function-option-name-lst-p--congruence
  +                        function-option-syntax-p--monotonicity.ok
  +                        function-option-syntax-p--ok-congruence.ok
  +                        function-option-syntax-p--monotonicity.new-used
  +                        function-option-syntax-p--new-used-when-ok
  +                        function-option-lst-syntax-p-helper--monotonicity
  +                        function-option-lst-syntax-p-helper--congruence
  +                        function-option-lst-syntax-p-helper--head
  +                        function-option-lst-syntax-p-helper-preserve
  +                        function-option-lst-syntax-fix-when-function-option-lst-syntaxp
  +                        ))
       )
   
     (defsection smt-solver-params
  
positive.code:     :short "Set :smt-cnf"
      :measure (len content)
      :hints (("Goal" :in-theory (enable smt-solver-cnf-fix)))
      :guard-hints (("Goal" :in-theory (enable smt-solver-cnf-fix smt-solver-cnf-p
                                               smt-solver-cnf-p-helper)
                     :use ((:instance stringp-of-cadr-of-smt-solver-cnf-p-helper))
                     ))
      (b* ((hint (smtlink-hint-fix hint))
  
negative.code:                                  (cons (car term) (function-option-name-lst-fix used))))
                   :name function-option-syntax-p--new-used-when-ok)))
  
      (define function-option-lst-syntax-p-helper ((term t) (used function-option-name-lst-p))
        :returns (ok booleanp)
        :short "Helper for function-option-lst-syntax-p."
  