• 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
        • Isodata
        • Simplify-defun
        • Tailrec
        • Schemalg
        • 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
          • Defaults-table
          • Xdoc::apt-constructors
          • Input-processors
            • Process-input-old-soft-io-sel-mod
            • Process-input-new/wrapper-names
            • Process-input-select-old-soft-io
            • Process-input-old-to-new-name
            • Process-input-old-if-new-name
            • Process-input-old-to-wrapper-name
            • Process-input-wrapper-enable
            • Process-input-wrapper-to-old-name
            • Process-input-old-to-new-enable
            • Process-input-old-to-wrapper-enable
            • Process-input-old-if-new-enable
            • Process-input-new-name
            • Process-input-new-to-old-name
            • Process-input-wrapper-to-old-enable
            • Process-input-verify-guards
            • Process-input-new-enable
            • Process-input-new-to-old-enable
          • Transformation-table
          • Find-base-cases
          • Untranslate-specifier-utilities
          • Print-specifier-utilities
          • Hints-specifier-utilities
        • Simplify-term-programmatic
        • Simplify-defun-sk-programmatic
        • Simplify-defun-programmatic
        • Simplify-defun+
        • Common-options
        • Common-concepts
      • Error-checking
      • Fty-extensions
      • Isar
      • Kestrel-utilities
      • Set
      • C
      • 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

• Input-processors

Process-input-wrapper-to-old-enable

Process the :wrapper-to-old-enable input of an APT transformation.

Signature

(process-input-wrapper-to-old-enable wrapper-to-old-enable 
                                     wrapper-to-old-enable-present 
                                     gen-wrapper ctx state) 
 
  → 
(mv erp processed-wrapper-to-old-enable state)

Arguments

wrapper-to-old-enable-present — Guard (booleanp wrapper-to-old-enable-present).

gen-wrapper — Guard (booleanp gen-wrapper).

Returns

processed-wrapper-to-old-enable — Type (booleanp processed-wrapper-to-old-enable).

This is quite analogous to process-input-old-to-wrapper-name, but for the :wrapper-to-old-name input of an APT transformation.

Definitions and Theorems

Function: process-input-wrapper-to-old-enable

(defun process-input-wrapper-to-old-enable
       (wrapper-to-old-enable wrapper-to-old-enable-present
                              gen-wrapper ctx state)
 (declare (xargs :stobjs (state)))
 (declare
      (xargs :guard (and (booleanp wrapper-to-old-enable-present)
                         (booleanp gen-wrapper))))
 (let ((__function__ 'process-input-wrapper-to-old-enable))
  (declare (ignorable __function__))
  (if gen-wrapper
   (if wrapper-to-old-enable-present
    (b*
     (((er &)
       (ensure-value-is-boolean$ wrapper-to-old-enable
                                 "The :WRAPPER-TO-OLD-ENABLE input"
                                 t nil)))
     (value wrapper-to-old-enable))
    (value (get-default-input-wrapper-to-old-enable (w state))))
   (if wrapper-to-old-enable-present
    (er-soft+
     ctx t nil
     "Since the :WRAPPER input is (perhaps by default) NIL, ~
                   no :WRAPPER-TO-OLD-ENABLE input may be supplied,
                   but ~x0 was supplied instead."
     wrapper-to-old-enable)
    (value nil)))))

Theorem: booleanp-of-process-input-wrapper-to-old-enable.processed-wrapper-to-old-enable

(defthm
 booleanp-of-process-input-wrapper-to-old-enable.processed-wrapper-to-old-enable
 (b* (((mv ?erp ?processed-wrapper-to-old-enable
           acl2::?state)
       (process-input-wrapper-to-old-enable
            wrapper-to-old-enable
            wrapper-to-old-enable-present
            gen-wrapper ctx state)))
   (booleanp processed-wrapper-to-old-enable))
 :rule-classes :rewrite)