• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Community
    • Std
    • Proof-automation
    • Macro-libraries
      • B*
      • Defunc
      • Fty
      • Apt
      • Std/util
        • Defprojection
        • Deflist
        • Defaggregate
        • Define
        • Defmapping
        • Defenum
        • Add-io-pairs
        • Defalist
        • Defmapappend
        • Returns-specifiers
        • Defarbrec
        • Define-sk
        • Defines
        • Error-value-tuples
        • Defmax-nat
          • Defmax-nat-implementation
            • Defmax-nat-fn
            • Defmax-nat-macro-definition
              • Defmax-nat-input-processing
              • Defmax-nat-event-generation
          • Defmin-int
          • Deftutorial
          • Extended-formals
          • Defrule
          • Defval
          • Defsurj
          • Defiso
          • Defconstrained-recognizer
          • Deffixer
          • Defmvtypes
          • Defconsts
          • Defthm-unsigned-byte-p
          • Support
          • Defthm-signed-byte-p
          • Defthm-natp
          • Defund-sk
          • Defmacro+
          • Defsum
          • Defthm-commutative
          • Definj
          • Defirrelevant
          • Defredundant
        • Defdata
        • Defrstobj
        • Seq
        • Match-tree
        • Defrstobj
        • With-supporters
        • Def-partial-measure
        • Template-subst
        • Soft
        • Defthm-domain
        • Event-macros
        • Def-universal-equiv
        • Def-saved-obligs
        • With-supporters-after
        • Definec
        • Sig
        • Outer-local
        • Data-structures
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Defmax-nat-implementation

    Defmax-nat-macro-definition

    Definition of the defmax-nat macro.

    Submit the event generated by defmax-nat-fn.

    Macro: defmax-nat

    (defmacro defmax-nat (f y x1...xn body &key (guard 't)
                            (verify-guards 't))
     (cons
      'make-event
      (cons
       (cons
        'defmax-nat-fn
        (cons
         (cons 'quote (cons f 'nil))
         (cons
          (cons 'quote (cons y 'nil))
          (cons
           (cons 'quote (cons x1...xn 'nil))
           (cons
            (cons 'quote (cons body 'nil))
            (cons
               (cons 'quote (cons guard 'nil))
               (cons (cons 'quote (cons verify-guards 'nil))
                     (cons (cons 'cons
                                 (cons ''defmax-nat
                                       (cons (cons 'quote (cons f 'nil))
                                             'nil)))
                           '(state)))))))))
       'nil)))