anchor.diff:          :define t
           :forward t
           :topic smt-solver-cnf-p))
  +
  +    (in-theory (disable ;; smt-solver-cnf-p-helper-preserve
  +                        stringp-of-cadr-of-smt-solver-cnf-p-helper))
       )
   
     (defsection smtlink-hint-syntax
  
positive.code:                                  (hypothesis-syntax-p val))
                          (implies (equal option-type 'hypothesis-lst-syntax-p)
                                   (hypothesis-lst-syntax-p val)))))
          :hints(("Goal" :use((:instance lemma2 (term (list (car term) (cadr term))))))))
        )
  
      (define function-syntax-p ((term t))
  
negative.code:         :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
  