• 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
      • Soft
      • Bv
      • Imp-language
      • C
        • Syntax-for-tools
        • Atc
          • Atc-implementation
            • Atc-abstract-syntax
            • Atc-pretty-printer
            • Atc-event-and-code-generation
              • Atc-symbolic-computation-states
              • Atc-symbolic-execution-rules
              • Atc-gen-ext-declon-lists
              • Atc-function-and-loop-generation
              • Atc-statement-generation
              • Atc-gen-fileset
              • Atc-gen-everything
              • Atc-gen-obj-declon
              • Atc-gen-fileset-event
              • Atc-tag-tables
              • Atc-expression-generation
              • Atc-generation-contexts
              • Atc-gen-wf-thm
              • Term-checkers-atc
              • Atc-variable-tables
              • Term-checkers-common
              • Atc-gen-init-fun-env-thm
              • Atc-gen-appconds
              • Read-write-variables
                • Write-auto-var
                • Read-auto-var
                • Write-static-var
                • Write-var
                • Read-var
                • Read-static-var
                • Objdesign-of-var-and-read/write-var-theorems
                • Read-object-of-objdesign-of-var-to-read-var
                • Write-object-of-objdesign-of-var-to-write-var
              • Atc-gen-thm-assert-events
              • Test*
              • Atc-gen-prog-const
              • Atc-gen-expr-bool
              • Atc-theorem-generation
              • Atc-tag-generation
              • Atc-gen-expr-pure
              • Atc-function-tables
              • Atc-object-tables
            • Fty-pseudo-term-utilities
            • Atc-term-recognizers
            • Atc-input-processing
            • Atc-shallow-embedding
            • Atc-process-inputs-and-gen-everything
            • Atc-table
            • Atc-fn
            • Atc-pretty-printing-options
            • Atc-types
            • Atc-macro-definition
          • Atc-tutorial
        • Language
        • Representation
        • Transformation-tools
        • Pack
      • 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

• Read-write-variables

Read-static-var

Read a variable in static storage.

Signature

(read-static-var var compst) → val

Arguments

var — Guard (identp var).

compst — Guard (compustatep compst).

Returns

val — Type (value-resultp val).

If the variable is not found, we return an error.

Definitions and Theorems

Function: read-static-var

(defun read-static-var (var compst)
  (declare (xargs :guard (and (identp var)
                              (compustatep compst))))
  (let ((__function__ 'read-static-var))
    (declare (ignorable __function__))
    (b* ((pair (omap::assoc (ident-fix var)
                            (compustate->static compst)))
         ((when (not pair))
          (error (list :static-var-not-found (ident-fix var)))))
      (cdr pair))))

Theorem: value-resultp-of-read-static-var

(defthm value-resultp-of-read-static-var
  (b* ((val (read-static-var var compst)))
    (value-resultp val))
  :rule-classes :rewrite)

Theorem: read-static-var-of-ident-fix-var

(defthm read-static-var-of-ident-fix-var
  (equal (read-static-var (ident-fix var) compst)
         (read-static-var var compst)))

Theorem: read-static-var-ident-equiv-congruence-on-var

(defthm read-static-var-ident-equiv-congruence-on-var
  (implies (ident-equiv var var-equiv)
           (equal (read-static-var var compst)
                  (read-static-var var-equiv compst)))
  :rule-classes :congruence)

Theorem: read-static-var-of-compustate-fix-compst

(defthm read-static-var-of-compustate-fix-compst
  (equal (read-static-var var (compustate-fix compst))
         (read-static-var var compst)))

Theorem: read-static-var-compustate-equiv-congruence-on-compst

(defthm read-static-var-compustate-equiv-congruence-on-compst
  (implies (compustate-equiv compst compst-equiv)
           (equal (read-static-var var compst)
                  (read-static-var var compst-equiv)))
  :rule-classes :congruence)