• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
      • Crypto-hdwallet
      • Apt
        • Simplify-defun
        • Isodata
        • Tailrec
        • Schemalg
          • Schemalg-implementation
            • Schemalg-event-generation
            • Schemalg-fn
            • Schemalg-macro-definition
            • Schemalg-input-processing
              • Schemalg-process-inputs
              • Schemalg-process-schema-inputs
              • Schemalg-process-divconq-list-0-1-2-inputs
              • Schemalg-process-divconq-oset-0-1-inputs
              • Schemalg-process-divconq-list-0-1-inputs
              • Schemalg-process-algo-name
              • Schemalg-process-oset-input
              • Schemalg-process-list-input
              • Schemalg-check-allowed-input
              • Schemalg-process-tail-output
              • Schemalg-process-cdr-output
              • Schemalg-process-spec-2-name
              • Schemalg-process-spec-1-name
              • Schemalg-process-spec-0-name
              • Schemalg-process-equal-algo-name
              • Schemalg-process-fvar-2-name
              • Schemalg-process-fvar-1-name
              • Schemalg-process-fvar-0-name
              • Schemalg-process-schema
              • Schemalg-process-algo-name-aux
              • *schemalg-schemas*
          • Schemalg-divconq-oset-0-1
          • Schemalg-divconq-list-0-1
        • Restrict
        • Expdata
        • Casesplit
        • Simplify-term
        • Simplify-defun-sk
        • Parteval
        • Solve
        • Wrap-output
        • Propagate-iso
        • Simplify
        • Finite-difference
        • Drop-irrelevant-params
        • Copy-function
        • Lift-iso
        • Rename-params
        • Utilities
        • Simplify-term-programmatic
        • Simplify-defun-sk-programmatic
        • Simplify-defun-programmatic
        • Simplify-defun+
        • Common-options
        • Common-concepts
      • Error-checking
      • Fty-extensions
      • Isar
      • Kestrel-utilities
      • Soft
      • Bv
      • Imp-language
      • C
      • 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

• Schemalg-input-processing

Schemalg-process-schema-inputs

Process all the schema-specific inputs.

Signature

(schemalg-process-schema-inputs 
     schema list-input list-input? 
     oset-input oset-input? cdr-output 
     cdr-output? tail-output tail-output? 
     fvar-0-name fvar-0-name? fvar-1-name 
     fvar-1-name? fvar-2-name fvar-2-name? 
     spec-0-name spec-0-name? spec-0-enable 
     spec-0-enable? spec-1-name spec-1-name? 
     spec-1-enable spec-1-enable? 
     spec-2-name spec-2-name? spec-2-enable 
     spec-2-enable? old ?f x-x1...xn 
     x-a1...am names-to-avoid ctx state) 
 
  → 
(mv erp result state)

Arguments

schema — Guard (keywordp schema).

list-input? — Guard (booleanp list-input?).

oset-input? — Guard (booleanp oset-input?).

cdr-output? — Guard (booleanp cdr-output?).

tail-output? — Guard (booleanp tail-output?).

fvar-0-name? — Guard (booleanp fvar-0-name?).

fvar-1-name? — Guard (booleanp fvar-1-name?).

fvar-2-name? — Guard (booleanp fvar-2-name?).

spec-0-name? — Guard (booleanp spec-0-name?).

spec-0-enable? — Guard (booleanp spec-0-enable?).

spec-1-name? — Guard (booleanp spec-1-name?).

spec-1-enable? — Guard (booleanp spec-1-enable?).

spec-2-name? — Guard (booleanp spec-2-name?).

spec-2-enable? — Guard (booleanp spec-2-enable?).

old — Guard (symbolp old).

?f — Guard (symbolp ?f).

x-x1...xn — Guard (symbol-listp x-x1...xn).

x-a1...am — Guard (pseudo-term-listp x-a1...am).

names-to-avoid — Guard (symbol-listp names-to-avoid).

Returns

result — A (tuple (x symbolp) (y symbolp) (?g symbolp) (?g0 symbolp) (?g1 symbolp) (?h symbolp) (?f1...?fp symbol-listp) (spec-0 symbolp) (spec-1 symbolp) (spec-2 symbolp) (updated-names-to-avoid symbol-listp) result).

Definitions and Theorems

Function: schemalg-process-schema-inputs

(defun schemalg-process-schema-inputs
       (schema list-input list-input?
               oset-input oset-input? cdr-output
               cdr-output? tail-output tail-output?
               fvar-0-name fvar-0-name? fvar-1-name
               fvar-1-name? fvar-2-name fvar-2-name?
               spec-0-name spec-0-name? spec-0-enable
               spec-0-enable? spec-1-name spec-1-name?
               spec-1-enable spec-1-enable?
               spec-2-name spec-2-name? spec-2-enable
               spec-2-enable? old ?f x-x1...xn
               x-a1...am names-to-avoid ctx state)
 (declare (xargs :stobjs (state)))
 (declare (xargs :guard (and (keywordp schema)
                             (booleanp list-input?)
                             (booleanp oset-input?)
                             (booleanp cdr-output?)
                             (booleanp tail-output?)
                             (booleanp fvar-0-name?)
                             (booleanp fvar-1-name?)
                             (booleanp fvar-2-name?)
                             (booleanp spec-0-name?)
                             (booleanp spec-0-enable?)
                             (booleanp spec-1-name?)
                             (booleanp spec-1-enable?)
                             (booleanp spec-2-name?)
                             (booleanp spec-2-enable?)
                             (symbolp old)
                             (symbolp ?f)
                             (symbol-listp x-x1...xn)
                             (pseudo-term-listp x-a1...am)
                             (symbol-listp names-to-avoid))))
 (let ((__function__ 'schemalg-process-schema-inputs))
   (declare (ignorable __function__))
   (b*
    (((er &)
      (schemalg-check-allowed-input
           list-input?
           :divconq-list-0-1 :divconq-list-0-1-2))
     ((er &)
      (schemalg-check-allowed-input oset-input? :divconq-oset-0-1))
     ((er &)
      (schemalg-check-allowed-input
           cdr-output?
           :divconq-list-0-1 :divconq-list-0-1-2))
     ((er &)
      (schemalg-check-allowed-input tail-output? :divconq-oset-0-1))
     ((er &)
      (schemalg-check-allowed-input
           fvar-0-name? :divconq-list-0-1
           :divconq-list-0-1-2 :divconq-oset-0-1))
     ((er &)
      (schemalg-check-allowed-input
           fvar-1-name? :divconq-list-0-1
           :divconq-list-0-1-2 :divconq-oset-0-1))
     ((er &)
      (schemalg-check-allowed-input
           fvar-2-name? :divconq-list-0-1-2))
     ((er &)
      (schemalg-check-allowed-input
           spec-0-name? :divconq-list-0-1
           :divconq-list-0-1-2 :divconq-oset-0-1))
     ((er &)
      (schemalg-check-allowed-input
           spec-0-enable? :divconq-list-0-1
           :divconq-list-0-1-2 :divconq-oset-0-1))
     ((er &)
      (schemalg-check-allowed-input
           spec-1-name? :divconq-list-0-1
           :divconq-list-0-1-2 :divconq-oset-0-1))
     ((er &)
      (schemalg-check-allowed-input
           spec-1-enable? :divconq-list-0-1
           :divconq-list-0-1-2 :divconq-oset-0-1))
     ((er &)
      (schemalg-check-allowed-input
           spec-2-name? :divconq-list-0-1-2))
     ((er &)
      (schemalg-check-allowed-input
           spec-2-enable? :divconq-list-0-1-2))
     ((er &)
      (ensure-value-is-boolean$ spec-0-enable
                                "The :SPEC-0-ENABLE input" t nil))
     ((er &)
      (ensure-value-is-boolean$ spec-1-enable
                                "The :SPEC-1-ENABLE input" t nil))
     ((er &)
      (ensure-value-is-boolean$ spec-2-enable
                                "The :SPEC-2-ENABLE input" t nil)))
    (case schema
      (:divconq-list-0-1
           (b* (((er (list x
                           y ??g ??h spec-0 spec-1 names-to-avoid))
                 (schemalg-process-divconq-list-0-1-inputs
                      list-input list-input? cdr-output
                      cdr-output? fvar-0-name fvar-1-name
                      spec-0-name spec-1-name old ?f x-x1...xn
                      x-a1...am names-to-avoid ctx state)))
             (value (list x y ?g nil nil ?h (list ?g ?h)
                          spec-0 spec-1 nil names-to-avoid))))
      (:divconq-list-0-1-2
           (b* (((er (list x y ??g0 ??g1 ??h
                           spec-0 spec-1 spec-2 names-to-avoid))
                 (schemalg-process-divconq-list-0-1-2-inputs
                      list-input list-input?
                      cdr-output cdr-output? fvar-0-name
                      fvar-1-name fvar-2-name spec-0-name
                      spec-1-name spec-2-name old ?f x-x1...xn
                      x-a1...am names-to-avoid ctx state)))
             (value (list x y nil ?g0 ?g1 ?h (list ?g0 ?g1 ?h)
                          spec-0 spec-1 spec-2 names-to-avoid))))
      (:divconq-oset-0-1
           (b* (((er (list x
                           y ??g ??h spec-0 spec-1 names-to-avoid))
                 (schemalg-process-divconq-oset-0-1-inputs
                      oset-input oset-input? tail-output
                      tail-output? fvar-0-name fvar-1-name
                      spec-0-name spec-1-name old ?f x-x1...xn
                      x-a1...am names-to-avoid ctx state)))
             (value (list x y ?g nil nil ?h (list ?g ?h)
                          spec-0 spec-1 nil names-to-avoid))))
      (t (value (raise "Internal error: unknown schema ~x0."
                       schema)))))))