• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Community
    • Std
    • Proof-automation
    • Macro-libraries
      • B*
      • Defunc
      • Fty
        • Deftagsum
        • Defprod
        • Defflexsum
        • Defbitstruct
        • Deflist
        • Defalist
        • Defbyte
        • Defresult
        • Deffixequiv
        • Deffixtype
        • Defoption
        • Fty-discipline
        • Fold
        • Specific-types
        • Fty-extensions
        • Defsubtype
        • Deftypes
        • Defset
        • Defflatsum
        • Deflist-of-len
          • Deflist-of-len-implementation
            • Deflist-of-len-fn
            • Deflist-of-len-support-lemma
            • Deflist-of-len-macro-definition
          • Defomap
          • Defbytelist
          • Fty::basetypes
          • Defvisitors
          • Deffixtype-alias
          • Deffixequiv-sk
          • Defunit
          • Multicase
          • Deffixequiv-mutual
          • Fty::baselists
          • Def-enumcase
          • Defmap
        • Apt
        • Std/util
        • 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
    • Deflist-of-len-implementation

    Deflist-of-len-macro-definition

    Definition of the deflist-of-len macro.

    Macro: deflist-of-len

    (defmacro deflist-of-len (type &key list-type length
                                   pred fix equiv parents short long)
     (cons
      'make-event
      (cons
       (cons
        'deflist-of-len-fn
        (cons
         (cons 'quote (cons type 'nil))
         (cons
          (cons 'quote (cons list-type 'nil))
          (cons
           (cons 'quote (cons length 'nil))
           (cons
            (cons 'quote (cons pred 'nil))
            (cons
               (cons 'quote (cons fix 'nil))
               (cons (cons 'quote (cons equiv 'nil))
                     (cons (cons 'quote (cons parents 'nil))
                           (cons short (cons long '((w state))))))))))))
       'nil)))