• 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
      • Set
      • Soft
      • C
        • Syntax-for-tools
        • Atc
        • Language
        • Representation
        • Transformation-tools
          • Simpadd0
          • Deftrans
            • Deftrans-defn-expr
            • Deftrans-core
            • Deftrans-defn-type-spec
            • Deftrans-defn-stmt
            • Deftrans-defn-dirdeclor
            • Deftrans-defn-dirabsdeclor
            • Deftrans-defn-structdecl
            • Deftrans-defn-member-designor
            • Deftrans-defn-fundef
            • Deftrans-defn-decl-spec
            • Deftrans-parse-keywords
            • Deftrans-defn-param-declor
            • 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-param-declon-list
            • Deftrans-defn-param-declon
            • 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-cases
            • Deftrans-mk-names0
            • Deftrans-defn-ident
            • Deftrans-defn-const
            • Take-pairs
            • Deftrans-macro
            • Deftrans-get-args
          • Splitgso
          • Constant-propagation
          • Split-fn
          • Copy-fn
          • Specialize
          • Split-all-gso
          • Rename
          • Utilities
        • Insertion-sort
        • Pack
      • Bv
      • Imp-language
      • Event-macros
      • Java
      • Bitcoin
      • Ethereum
      • Yul
      • Zcash
      • ACL2-programming-language
      • Prime-fields
      • Json
      • Syntheto
      • File-io-light
      • Cryptography
      • Number-theory
      • Lists-light
      • Axe
      • Builtins
      • Solidity
      • Helpers
      • Htclient
      • Typed-lists-light
      • Arithmetic-light
    • X86isa
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Deftrans

Deftrans-defn-stmt

Signature

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

(defun deftrans-defn-stmt (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-stmt))
  (declare (ignorable __function__))
  (deftrans-defn
   'stmt
   names bodies '((stmt stmtp))
   extra-args
   (cons
    'stmt-case
    (cons
     'stmt
     (cons
      ':labeled
      (cons
       (cons
        'make-stmt-labeled
        (cons
         ':label
         (cons (cons (cdr (assoc-eq 'label names))
                     (cons 'stmt.label extra-args-names))
               (cons ':stmt
                     (cons (cons (cdr (assoc-eq 'stmt names))
                                 (cons 'stmt.stmt extra-args-names))
                           'nil)))))
       (cons
        ':compound
        (cons
         (cons 'stmt-compound
               (cons (cons (cdr (assoc-eq 'block-item-list names))
                           (cons 'stmt.items extra-args-names))
                     'nil))
         (cons
          ':expr
          (cons
           (cons 'stmt-expr
                 (cons (cons (cdr (assoc-eq 'expr-option names))
                             (cons 'stmt.expr? extra-args-names))
                       'nil))
           (cons
            ':if
            (cons
             (cons
              'make-stmt-if
              (cons
               ':test
               (cons
                (cons (cdr (assoc-eq 'expr names))
                      (cons 'stmt.test extra-args-names))
                (cons
                     ':then
                     (cons (cons (cdr (assoc-eq 'stmt names))
                                 (cons 'stmt.then extra-args-names))
                           'nil)))))
             (cons
              ':ifelse
              (cons
               (cons
                'make-stmt-ifelse
                (cons
                 ':test
                 (cons
                  (cons (cdr (assoc-eq 'expr names))
                        (cons 'stmt.test extra-args-names))
                  (cons
                   ':then
                   (cons
                    (cons (cdr (assoc-eq 'stmt names))
                          (cons 'stmt.then extra-args-names))
                    (cons
                     ':else
                     (cons (cons (cdr (assoc-eq 'stmt names))
                                 (cons 'stmt.else extra-args-names))
                           'nil)))))))
               (cons
                ':switch
                (cons
                 (cons
                  'make-stmt-switch
                  (cons
                   ':target
                   (cons
                    (cons (cdr (assoc-eq 'expr names))
                          (cons 'stmt.target extra-args-names))
                    (cons
                     ':body
                     (cons (cons (cdr (assoc-eq 'stmt names))
                                 (cons 'stmt.body extra-args-names))
                           'nil)))))
                 (cons
                  ':while
                  (cons
                   (cons
                    'make-stmt-while
                    (cons
                     ':test
                     (cons
                      (cons (cdr (assoc-eq 'expr names))
                            (cons 'stmt.test extra-args-names))
                      (cons
                       ':body
                       (cons
                           (cons (cdr (assoc-eq 'stmt names))
                                 (cons 'stmt.body extra-args-names))
                           'nil)))))
                   (cons
                    ':dowhile
                    (cons
                     (cons
                      'make-stmt-dowhile
                      (cons
                       ':body
                       (cons
                        (cons (cdr (assoc-eq 'stmt names))
                              (cons 'stmt.body extra-args-names))
                        (cons
                         ':test
                         (cons
                           (cons (cdr (assoc-eq 'expr names))
                                 (cons 'stmt.test extra-args-names))
                           'nil)))))
                     (cons
                      ':for-expr
                      (cons
                       (cons
                        'make-stmt-for-expr
                        (cons
                         ':init
                         (cons
                          (cons (cdr (assoc-eq 'expr-option names))
                                (cons 'stmt.init extra-args-names))
                          (cons
                           ':test
                           (cons
                            (cons
                                 (cdr (assoc-eq 'expr-option names))
                                 (cons 'stmt.test extra-args-names))
                            (cons
                             ':next
                             (cons
                              (cons
                                 (cdr (assoc-eq 'expr-option names))
                                 (cons 'stmt.next extra-args-names))
                              (cons
                               ':body
                               (cons
                                (cons
                                 (cdr (assoc-eq 'stmt names))
                                 (cons 'stmt.body extra-args-names))
                                'nil)))))))))
                       (cons
                        ':for-decl
                        (cons
                         (cons
                          'make-stmt-for-decl
                          (cons
                           ':init
                           (cons
                            (cons
                                 (cdr (assoc-eq 'decl names))
                                 (cons 'stmt.init extra-args-names))
                            (cons
                             ':test
                             (cons
                              (cons
                                 (cdr (assoc-eq 'expr-option names))
                                 (cons 'stmt.test extra-args-names))
                              (cons
                               ':next
                               (cons
                                (cons
                                 (cdr (assoc-eq 'expr-option names))
                                 (cons 'stmt.next extra-args-names))
                                (cons
                                 ':body
                                 (cons
                                  (cons (cdr (assoc-eq 'stmt names))
                                        (cons 'stmt.body
                                              extra-args-names))
                                  'nil)))))))))
                         (cons
                          ':for-ambig
                          (cons
                           '(prog2$ (raise "Misusage error: ~x0."
                                           (stmt-fix stmt))
                                    (stmt-fix stmt))
                           (cons
                            ':goto
                            (cons
                             '(stmt-fix stmt)
                             (cons
                              ':continue
                              (cons
                               '(stmt-fix stmt)
                               (cons
                                ':break
                                (cons
                                 '(stmt-fix stmt)
                                 (cons
                                  ':return
                                  (cons
                                   (cons
                                    'stmt-return
                                    (cons
                                     (cons
                                         (cdr (assoc-eq 'expr-option
                                                        names))
                                         (cons 'stmt.expr?
                                               extra-args-names))
                                     'nil))
                                   '(:asm
                                     (stmt-fix
                                      stmt))))))))))))))))))))))))))))))))))
   '(:returns (new-stmt stmtp)
              :measure (stmt-count stmt)))))