• 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-dirabsdeclor

Signature

(deftrans-defn-dirabsdeclor 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-dirabsdeclor

(defun deftrans-defn-dirabsdeclor
       (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-dirabsdeclor))
  (declare (ignorable __function__))
  (deftrans-defn
   'dirabsdeclor
   names
   bodies '((dirabsdeclor dirabsdeclorp))
   extra-args
   (cons
    'dirabsdeclor-case
    (cons
     'dirabsdeclor
     (cons
      ':dummy-base
      (cons
       '(prog2$ (raise "Misusage error: ~x0."
                       (dirabsdeclor-fix dirabsdeclor))
                (dirabsdeclor-fix dirabsdeclor))
       (cons
        ':paren
        (cons
         (cons 'dirabsdeclor-paren
               (cons (cons (cdr (assoc-eq 'absdeclor names))
                           (cons 'dirabsdeclor.unwrap
                                 extra-args-names))
                     'nil))
         (cons
          ':array
          (cons
           (cons
            'make-dirabsdeclor-array
            (cons
             ':decl?
             (cons
              (cons (cdr (assoc-eq 'dirabsdeclor-option names))
                    (cons 'dirabsdeclor.decl?
                          extra-args-names))
              (cons
               ':tyquals
               (cons
                'dirabsdeclor.tyquals
                (cons
                     ':expr?
                     (cons (cons (cdr (assoc-eq 'expr-option names))
                                 (cons 'dirabsdeclor.expr?
                                       extra-args-names))
                           'nil)))))))
           (cons
            ':array-static1
            (cons
             (cons
              'make-dirabsdeclor-array-static1
              (cons
               ':decl?
               (cons
                (cons (cdr (assoc-eq 'dirabsdeclor-option names))
                      (cons 'dirabsdeclor.decl?
                            extra-args-names))
                (cons
                 ':tyquals
                 (cons
                      'dirabsdeclor.tyquals
                      (cons ':expr
                            (cons (cons (cdr (assoc-eq 'expr names))
                                        (cons 'dirabsdeclor.expr
                                              extra-args-names))
                                  'nil)))))))
             (cons
              ':array-static2
              (cons
               (cons
                'make-dirabsdeclor-array-static2
                (cons
                 ':decl?
                 (cons
                  (cons (cdr (assoc-eq 'dirabsdeclor-option names))
                        (cons 'dirabsdeclor.decl?
                              extra-args-names))
                  (cons
                   ':tyquals
                   (cons
                      'dirabsdeclor.tyquals
                      (cons ':expr
                            (cons (cons (cdr (assoc-eq 'expr names))
                                        (cons 'dirabsdeclor.expr
                                              extra-args-names))
                                  'nil)))))))
               (cons
                ':array-star
                (cons
                 (cons
                  'dirabsdeclor-array-star
                  (cons
                   (cons (cdr (assoc-eq 'dirabsdeclor-option names))
                         (cons 'dirabsdeclor.decl?
                               extra-args-names))
                   'nil))
                 (cons
                  ':function
                  (cons
                   (cons
                    'make-dirabsdeclor-function
                    (cons
                     ':decl?
                     (cons
                      (cons
                         (cdr (assoc-eq 'dirabsdeclor-option names))
                         (cons 'dirabsdeclor.decl?
                               extra-args-names))
                      (cons
                       ':params
                       (cons
                        (cons (cdr (assoc-eq 'paramdecl-list names))
                              (cons 'dirabsdeclor.params
                                    extra-args-names))
                        '(:ellipsis dirabsdeclor.ellipsis))))))
                   'nil))))))))))))))))
   '(:returns (new-dirabsdeclor dirabsdeclorp)
              :measure (dirabsdeclor-count dirabsdeclor)))))