• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
      • Crypto-hdwallet
      • Apt
      • Error-checking
      • Fty-extensions
      • Isar
      • Kestrel-utilities
      • Soft
        • Soft-future-work
        • Soft-macros
          • Defun-inst
          • Defequal
            • Defequal-implementation
              • Defequal-fn
              • Defequal-event-generation
              • Defequal-input-processing
              • Defequal-table
              • Defequal-macro-definition
          • Defsoft
          • Defthm-inst
          • Defun2
          • Defunvar
          • Defun-sk2
          • Defchoose2
          • Defthm-2nd-order
          • Define-sk2
          • Defund-sk2
          • Define2
          • Defund2
        • Updates-to-workshop-material
        • Soft-implementation
        • Soft-notions
      • Bv
      • Imp-language
      • C
      • Event-macros
      • Java
      • Bitcoin
      • Ethereum
      • Yul
      • Zcash
      • ACL2-programming-language
      • Prime-fields
      • Json
      • Syntheto
      • File-io-light
      • Number-theory
      • Cryptography
      • Lists-light
      • Builtins
      • Axe
      • Solidity
      • Helpers
      • Htclient
      • Typed-lists-light
      • Arithmetic-light
    • X86isa
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Defequal-implementation

Defequal-macro-definition

Definition of the defequal macro.

Macro: defequal

(defmacro defequal (&whole call name
                           &key (left ':no-default left-present)
                           (right ':no-default right-present)
                           (vars ':auto)
                           (enable 'nil)
                           (verify-guards 't)
                           (left-to-right-name ':auto)
                           (left-to-right-enable 'nil)
                           (right-to-left-name ':auto)
                           (right-to-left-enable 'nil)
                           (print ':result)
                           (show-only 'nil))
 (cons
  'make-event-terse
  (cons
   (cons
    'defequal-fn
    (cons
     (cons 'quote (cons name 'nil))
     (cons
      (cons 'quote (cons left 'nil))
      (cons
       (cons 'quote (cons left-present 'nil))
       (cons
        (cons 'quote (cons right 'nil))
        (cons
         (cons 'quote (cons right-present 'nil))
         (cons
          (cons 'quote (cons vars 'nil))
          (cons
           (cons 'quote (cons enable 'nil))
           (cons
            (cons 'quote (cons verify-guards 'nil))
            (cons
             (cons 'quote
                   (cons left-to-right-name 'nil))
             (cons
              (cons 'quote
                    (cons left-to-right-enable 'nil))
              (cons
               (cons 'quote
                     (cons right-to-left-name 'nil))
               (cons
                (cons 'quote
                      (cons right-to-left-enable 'nil))
                (cons
                 (cons 'quote (cons print 'nil))
                 (cons
                  (cons 'quote (cons show-only 'nil))
                  (cons
                   (cons 'quote (cons call 'nil))
                   (cons
                    (cons 'cons
                          (cons ''defequal
                                (cons (cons 'quote (cons name 'nil))
                                      'nil)))
                    '(state))))))))))))))))))
   (cons ':suppress-errors
         (cons (not print) 'nil)))))