• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
    • Apt
    • Zfc
    • Acre
    • Milawa
    • Smtlink
    • Abnf
    • Vwsim
    • Isar
    • Wp-gen
    • Dimacs-reader
    • Pfcs
    • Legacy-defrstobj
    • Proof-checker-array
    • 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
    • Farray
    • Rp-rewriter
    • Instant-runoff-voting
    • Imp-language
    • Sidekick
    • Leftist-trees
    • Java
    • Taspi
    • Bitcoin
    • Riscv
    • Des
    • Ethereum
    • X86isa
    • Sha-2
    • Yul
    • Zcash
    • Proof-checker-itp13
    • Regex
    • ACL2-programming-language
    • Json
    • Jfkr
    • Equational
    • Cryptography
    • Poseidon
    • Where-do-i-place-my-book
    • Axe
    • Bigmems
    • Builtins
    • Execloader
    • Aleo
    • Solidity
    • Paco
    • Concurrent-programs
    • Bls12-377-curves
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • 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)))))