• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
      • Std/lists
      • Std/alists
      • Obags
      • Std/util
        • Defprojection
        • Deflist
        • Defaggregate
        • Define
        • Defmapping
        • Defenum
        • Add-io-pairs
        • Defalist
        • Defmapappend
        • Returns-specifiers
        • Defarbrec
        • Defines
        • Define-sk
        • Error-value-tuples
        • Defmax-nat
        • 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
        • Std/strings
        • Std/osets
        • Std/io
        • Std/basic
        • Std/system
        • Std/typed-lists
        • Std/bitsets
        • Std/testing
        • Std/typed-alists
        • Std/stobjs
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Std/util

    Defirrelevant

    Define an irrelevant value of a type.

    Macro: defirrelevant

    (defmacro defirrelevant
              (name &key type body (parents 'nil parents-p)
                    short)
     (cons
      'define
      (cons
       name
       (cons
        'nil
        (cons
         ':returns
         (cons
          (cons 'irr (cons type 'nil))
          (append
           (and parents-p
                (cons ':parents (cons parents 'nil)))
           (cons
            ':short
            (cons
             short
             (cons
              ':long
              (cons
               '(xdoc::topstring
                 (xdoc::p
                      "This can be used as a dummy value of the type."))
               (cons
                body
                (cons
                 '///
                 (cons
                  (cons
                    'in-theory
                    (cons (cons 'disable
                                (cons (cons ':e (cons name 'nil)) 'nil))
                          'nil))
                  'nil))))))))))))))