• 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
      • Bv
      • Imp-language
      • C
        • Syntax-for-tools
        • Atc
        • Language
        • Representation
        • Transformation-tools
          • Deftrans
            • Deftrans-defn-expr
            • Deftrans-core
            • Deftrans-defn-type-spec
            • Deftrans-defn-stmt
            • Deftrans-defn-dirdeclor
            • Deftrans-defn-dirabsdeclor
            • Deftrans-filepath
            • Deftrans-defn-structdecl
            • Deftrans-defn-member-designor
            • Deftrans-defn-fundef
            • Deftrans-defn-decl-spec
            • Deftrans-parse-keywords
            • Deftrans-defn-paramdeclor
            • Deftrans-defn-spec/qual
            • Deftrans-defn-initdeclor
            • Deftrans-defn-genassoc
            • Deftrans-defn-decl
            • Deftrans-defn-block-item
            • Deftrans-defn-align-spec
            • Deftrans-mk-names
            • Deftrans-defn-structdeclor-list
            • Deftrans-defn-structdeclor
            • Deftrans-defn-structdecl-list
            • Deftrans-defn-spec/qual-list
            • Deftrans-defn-paramdecl-list
            • Deftrans-defn-paramdecl
            • Deftrans-defn-label
            • Deftrans-defn-initer
            • Deftrans-defn-initdeclor-list
            • Deftrans-defn-genassoc-list
            • Deftrans-defn-extdecl-list
            • Deftrans-defn-extdecl
            • Deftrans-defn-desiniter-list
            • Deftrans-defn-desiniter
            • Deftrans-defn-designor-list
            • Deftrans-defn-decl-spec-list
            • Deftrans-defn-block-item-list
            • Deftrans-defn
            • Deftrans-defn-tyname
            • Deftrans-defn-strunispec
            • Deftrans-defn-statassert
            • Deftrans-defn-initer-option
            • Deftrans-defn-ident-list
            • Deftrans-defn-expr-list
            • Deftrans-defn-enumspec
            • Deftrans-defn-enumer-list
            • Deftrans-defn-enumer
            • Deftrans-defn-dirabsdeclor-option
            • Deftrans-defn-designor
            • Deftrans-defn-declor-option
            • Deftrans-defn-declor
            • Deftrans-defn-decl-list
            • Deftrans-defn-const-expr-option
            • Deftrans-defn-const-expr
            • Deftrans-defn-absdeclor-option
            • Deftrans-defn-absdeclor
            • Deftrans-defn-transunit
            • Deftrans-defn-expr-option
            • Deftrans-mk-names0
            • Deftrans-cases
            • Deftrans-defn-ident
            • Deftrans-defn-const
            • Take-pairs
            • Deftrans-macro
            • Deftrans-get-args
          • Simpadd0
          • Split-fn
          • Copy-fn
          • Specialize
          • Rename
          • Splitgso
          • Utilities
        • Pack
      • 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

• Deftrans

Deftrans-defn-dirdeclor

Signature

(deftrans-defn-dirdeclor names bodies extra-args extra-args-names) 
  → 
*

Arguments

names — Guard (alistp names).

bodies — Guard (alistp bodies).

extra-args — Guard (true-listp extra-args).

extra-args-names — Guard (true-listp extra-args-names).

Definitions and Theorems

Function: deftrans-defn-dirdeclor

(defun deftrans-defn-dirdeclor
       (names bodies extra-args extra-args-names)
 (declare (xargs :guard (and (alistp names)
                             (alistp bodies)
                             (true-listp extra-args)
                             (true-listp extra-args-names))))
 (let ((__function__ 'deftrans-defn-dirdeclor))
  (declare (ignorable __function__))
  (deftrans-defn
   'dirdeclor
   names bodies '((dirdeclor dirdeclorp))
   extra-args
   (cons
    'dirdeclor-case
    (cons
     'dirdeclor
     (cons
      ':ident
      (cons
       (cons 'dirdeclor-ident
             (cons (cons (cdr (assoc-eq 'ident names))
                         (cons 'dirdeclor.unwrap
                               extra-args-names))
                   'nil))
       (cons
        ':paren
        (cons
         (cons 'dirdeclor-paren
               (cons (cons (cdr (assoc-eq 'declor names))
                           (cons 'dirdeclor.unwrap
                                 extra-args-names))
                     'nil))
         (cons
          ':array
          (cons
           (cons
            'make-dirdeclor-array
            (cons
             ':decl
             (cons
              (cons (cdr (assoc-eq 'dirdeclor names))
                    (cons 'dirdeclor.decl extra-args-names))
              (cons
               ':tyquals
               (cons
                'dirdeclor.tyquals
                (cons
                     ':expr?
                     (cons (cons (cdr (assoc-eq 'expr-option names))
                                 (cons 'dirdeclor.expr?
                                       extra-args-names))
                           'nil)))))))
           (cons
            ':array-static1
            (cons
             (cons
              'make-dirdeclor-array-static1
              (cons
               ':decl
               (cons
                (cons (cdr (assoc-eq 'dirdeclor names))
                      (cons 'dirdeclor.decl extra-args-names))
                (cons
                 ':tyquals
                 (cons
                  'dirdeclor.tyquals
                  (cons
                   ':expr
                   (cons
                      (cons (cdr (assoc-eq 'expr names))
                            (cons 'dirdeclor.expr extra-args-names))
                      'nil)))))))
             (cons
              ':array-static2
              (cons
               (cons
                'make-dirdeclor-array-static2
                (cons
                 ':decl
                 (cons
                  (cons (cdr (assoc-eq 'dirdeclor names))
                        (cons 'dirdeclor.decl extra-args-names))
                  (cons
                   ':tyquals
                   (cons
                    'dirdeclor.tyquals
                    (cons
                     ':expr
                     (cons
                      (cons (cdr (assoc-eq 'expr names))
                            (cons 'dirdeclor.expr extra-args-names))
                      'nil)))))))
               (cons
                ':array-star
                (cons
                 (cons
                  'make-dirdeclor-array-star
                  (cons
                   ':decl
                   (cons
                      (cons (cdr (assoc-eq 'dirdeclor names))
                            (cons 'dirdeclor.decl extra-args-names))
                      '(:tyquals dirdeclor.tyquals))))
                 (cons
                  ':function-params
                  (cons
                   (cons
                    'make-dirdeclor-function-params
                    (cons
                     ':decl
                     (cons
                      (cons (cdr (assoc-eq 'dirdeclor names))
                            (cons 'dirdeclor.decl extra-args-names))
                      (cons
                       ':params
                       (cons
                        (cons (cdr (assoc-eq 'paramdecl-list names))
                              (cons 'dirdeclor.params
                                    extra-args-names))
                        '(:ellipsis dirdeclor.ellipsis))))))
                   (cons
                    ':function-names
                    (cons
                     (cons
                      'make-dirdeclor-function-names
                      (cons
                       ':decl
                       (cons
                        (cons
                            (cdr (assoc-eq 'dirdeclor names))
                            (cons 'dirdeclor.decl extra-args-names))
                        (cons
                         ':names
                         (cons
                            (cons (cdr (assoc-eq 'ident-list names))
                                  (cons 'dirdeclor.names
                                        extra-args-names))
                            'nil)))))
                     'nil))))))))))))))))))
   '(:returns (new-dirdeclor dirdeclorp)
              :measure (dirdeclor-count dirdeclor)))))