• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Community
  • 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
      • C
        • Syntax-for-tools
        • Atc
          • Atc-implementation
            • Atc-abstract-syntax
            • Atc-pretty-printer
            • Atc-event-and-code-generation
            • Fty-pseudo-term-utilities
            • Atc-term-recognizers
            • Atc-input-processing
              • Atc-process-target
              • Atc-process-const-name
              • Atc-process-function
              • Atc-process-target-list
              • Atc-process-inputs
              • Atc-process-file-name
              • Atc-process-const-name-aux
              • Atc-process-targets
              • Atc-process-print
              • Atc-process-pretty-printing
              • Atc-remove-called-fns
              • Atc-process-output-dir
              • Atc-process-proofs
              • Atc-process-header
              • *atc-allowed-pretty-printing-options*
              • *atc-allowed-options*
            • Atc-shallow-embedding
            • Atc-process-inputs-and-gen-everything
            • Atc-table
            • Atc-fn
            • Atc-pretty-printing-options
            • Atc-types
            • Atc-macro-definition
          • Atc-tutorial
          • Pure-expression-execution
        • Transformation-tools
        • Language
        • Representation
        • Insertion-sort
        • Pack
      • Soft
      • Bv
      • Imp-language
      • Ethereum
      • Event-macros
      • Java
      • Riscv
      • Bitcoin
      • Zcash
      • Yul
      • ACL2-programming-language
      • Prime-fields
      • Json
      • Syntheto
      • File-io-light
      • Cryptography
      • Number-theory
      • Axe
      • Lists-light
      • Builtins
      • Solidity
      • Helpers
      • Htclient
      • Typed-lists-light
      • Arithmetic-light
    • X86isa
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Atc-input-processing

Atc-process-target-list

Lift atc-process-function to lists.

Signature

(atc-process-target-list targets previous-structs previous-objs 
                         previous-fns uncalled-fns wrld) 
 
  → 
(mv erp targets 
    new-previous-structs new-previous-objs 
    new-previous-fns new-uncalled-fns) 

Arguments

targets — Guard (true-listp targets).

previous-structs — Guard (symbol-listp previous-structs).

previous-objs — Guard (symbol-listp previous-objs).

previous-fns — Guard (symbol-listp previous-fns).

uncalled-fns — Guard (symbol-listp uncalled-fns).

wrld — Guard (plist-worldp wrld).

Returns

targets — Type (symbol-listp targets).

new-previous-structs — Type (symbol-listp new-previous-structs), given (symbol-listp previous-structs).

new-previous-objs — Type (symbol-listp new-previous-objs), given (symbol-listp previous-objs).

new-previous-fns — Type (symbol-listp new-previous-fns), given (symbol-listp previous-fns).

new-uncalled-fns — Type (symbol-listp new-uncalled-fns), given (symbol-listp uncalled-fns).

We thread the lists through.

If successful, we also return the target list itself, with a guaranteed symbol-listp type, so that calling code has that fact readily available.

Definitions and Theorems

Function: atc-process-target-list

(defun atc-process-target-list
       (targets previous-structs previous-objs
                previous-fns uncalled-fns wrld)
  (declare (xargs :guard (and (true-listp targets)
                              (symbol-listp previous-structs)
                              (symbol-listp previous-objs)
                              (symbol-listp previous-fns)
                              (symbol-listp uncalled-fns)
                              (plist-worldp wrld))))
  (let ((__function__ 'atc-process-target-list))
    (declare (ignorable __function__))
    (b* (((reterr) nil nil nil nil nil)
         ((when (endp targets))
          (retok nil previous-structs previous-objs
                 previous-fns uncalled-fns))
         ((erp target previous-structs
               previous-objs previous-fns uncalled-fns)
          (atc-process-target (car targets)
                              previous-structs previous-objs
                              previous-fns uncalled-fns wrld))
         ((erp targets previous-structs
               previous-objs previous-fns uncalled-fns)
          (atc-process-target-list (cdr targets)
                                   previous-structs previous-objs
                                   previous-fns uncalled-fns wrld)))
      (retok (cons target targets)
             previous-structs previous-objs
             previous-fns uncalled-fns))))

Theorem: symbol-listp-of-atc-process-target-list.targets

(defthm symbol-listp-of-atc-process-target-list.targets
  (b*
   (((mv acl2::?erp ?targets
         ?new-previous-structs ?new-previous-objs
         ?new-previous-fns ?new-uncalled-fns)
     (atc-process-target-list targets previous-structs previous-objs
                              previous-fns uncalled-fns wrld)))
   (symbol-listp targets))
  :rule-classes :rewrite)

Theorem: symbol-listp-of-atc-process-target-list.new-previous-structs

(defthm symbol-listp-of-atc-process-target-list.new-previous-structs
 (implies
  (symbol-listp previous-structs)
  (b*
   (((mv acl2::?erp ?targets
         ?new-previous-structs ?new-previous-objs
         ?new-previous-fns ?new-uncalled-fns)
     (atc-process-target-list targets previous-structs previous-objs
                              previous-fns uncalled-fns wrld)))
   (symbol-listp new-previous-structs)))
 :rule-classes :rewrite)

Theorem: symbol-listp-of-atc-process-target-list.new-previous-objs

(defthm symbol-listp-of-atc-process-target-list.new-previous-objs
 (implies
  (symbol-listp previous-objs)
  (b*
   (((mv acl2::?erp ?targets
         ?new-previous-structs ?new-previous-objs
         ?new-previous-fns ?new-uncalled-fns)
     (atc-process-target-list targets previous-structs previous-objs
                              previous-fns uncalled-fns wrld)))
   (symbol-listp new-previous-objs)))
 :rule-classes :rewrite)

Theorem: symbol-listp-of-atc-process-target-list.new-previous-fns

(defthm symbol-listp-of-atc-process-target-list.new-previous-fns
 (implies
  (symbol-listp previous-fns)
  (b*
   (((mv acl2::?erp ?targets
         ?new-previous-structs ?new-previous-objs
         ?new-previous-fns ?new-uncalled-fns)
     (atc-process-target-list targets previous-structs previous-objs
                              previous-fns uncalled-fns wrld)))
   (symbol-listp new-previous-fns)))
 :rule-classes :rewrite)

Theorem: symbol-listp-of-atc-process-target-list.new-uncalled-fns

(defthm symbol-listp-of-atc-process-target-list.new-uncalled-fns
 (implies
  (symbol-listp uncalled-fns)
  (b*
   (((mv acl2::?erp ?targets
         ?new-previous-structs ?new-previous-objs
         ?new-previous-fns ?new-uncalled-fns)
     (atc-process-target-list targets previous-structs previous-objs
                              previous-fns uncalled-fns wrld)))
   (symbol-listp new-uncalled-fns)))
 :rule-classes :rewrite)

Theorem: true-listp-of-atc-process-target-list.new-previous-structs

(defthm true-listp-of-atc-process-target-list.new-previous-structs
 (implies
  (true-listp previous-structs)
  (b*
   (((mv acl2::?erp ?targets
         ?new-previous-structs ?new-previous-objs
         ?new-previous-fns ?new-uncalled-fns)
     (atc-process-target-list targets previous-structs previous-objs
                              previous-fns uncalled-fns wrld)))
   (true-listp new-previous-structs)))
 :rule-classes :type-prescription)

Theorem: true-listp-of-atc-process-target-list.new-previous-objs

(defthm true-listp-of-atc-process-target-list.new-previous-objs
 (implies
  (true-listp previous-objs)
  (b*
   (((mv acl2::?erp ?targets
         ?new-previous-structs ?new-previous-objs
         ?new-previous-fns ?new-uncalled-fns)
     (atc-process-target-list targets previous-structs previous-objs
                              previous-fns uncalled-fns wrld)))
   (true-listp new-previous-objs)))
 :rule-classes :type-prescription)

Theorem: true-listp-of-atc-process-target-list.new-previous-fns

(defthm true-listp-of-atc-process-target-list.new-previous-fns
 (implies
  (true-listp previous-fns)
  (b*
   (((mv acl2::?erp ?targets
         ?new-previous-structs ?new-previous-objs
         ?new-previous-fns ?new-uncalled-fns)
     (atc-process-target-list targets previous-structs previous-objs
                              previous-fns uncalled-fns wrld)))
   (true-listp new-previous-fns)))
 :rule-classes :type-prescription)

Theorem: true-listp-of-atc-process-target-list.new-uncalled-fns

(defthm true-listp-of-atc-process-target-list.new-uncalled-fns
 (implies
  (true-listp uncalled-fns)
  (b*
   (((mv acl2::?erp ?targets
         ?new-previous-structs ?new-previous-objs
         ?new-previous-fns ?new-uncalled-fns)
     (atc-process-target-list targets previous-structs previous-objs
                              previous-fns uncalled-fns wrld)))
   (true-listp new-uncalled-fns)))
 :rule-classes :type-prescription)