• 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
                • Update-var
                • Atc-write-var-rules
                • Atc-write-object-rules
                • Atc-update-object-rules
                • Add-var
                • Atc-update-var-rules
                • Update-object
                • Atc-write-static-var-rules
                • Atc-read-var-rules
                • Atc-create-var-rules
                • Update-static-var
                • Atc-read-object-rules
                • Add-frame
                • Var-autop
                • Var-in-scopes-p
                • Atc-push-frame-rules
                • Atc-update-static-var-rules
                • Atc-compustate-frames-number-rules
                • Objdesign->base-address
                • Atc-read-static-var-rules
                • Atc-pop-frame-rules
                • Atc-exit-scope-rules
                • Atc-var-autop-rules
                • *atc-write-object-rules*
                • *atc-symbolic-computation-state-rules*
                • *atc-write-static-var-rules*
                • *atc-update-object-rules*
                • *atc-read-object-rules*
                • *atc-compustate-frames-number-rules*
                • Atc-enter-scope-rules
                • *atc-write-var-rules*
                • *atc-var-autop-rules*
                • *atc-update-var-rules*
                • *atc-update-static-var-rules*
                • *atc-read-var-rules*
                • *atc-read-static-var-rules*
                • *atc-push-frame-rules*
                • *atc-pop-frame-rules*
                • *atc-exit-scope-rules*
                • *atc-create-var-rules*
              • 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
              • 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

• Atc-symbolic-computation-states

Update-static-var

Update a variable in static storage in a canonical representation of computation states.

Signature

(update-static-var var val compst) → new-compst

Arguments

var — Guard (identp var).

val — Guard (valuep val).

compst — Guard (compustatep compst).

Returns

new-compst — Type (compustatep new-compst).

This is analogous to update-var, but for variables in static storage. It is equivalent to write-static-var when the latter does not return an error.

Definitions and Theorems

Function: update-static-var

(defun update-static-var (var val compst)
 (declare (xargs :guard (and (identp var)
                             (valuep val)
                             (compustatep compst))))
 (let ((__function__ 'update-static-var))
   (declare (ignorable __function__))
   (b* ((static (compustate->static compst))
        (new-static (omap::update (ident-fix var)
                                  (remove-flexible-array-member val)
                                  static))
        (new-compst (change-compustate compst
                                       :static new-static)))
     new-compst)))

Theorem: compustatep-of-update-static-var

(defthm compustatep-of-update-static-var
  (b* ((new-compst (update-static-var var val compst)))
    (compustatep new-compst))
  :rule-classes :rewrite)

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

(defthm update-static-var-of-ident-fix-var
  (equal (update-static-var (ident-fix var)
                            val compst)
         (update-static-var var val compst)))

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

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

Theorem: update-static-var-of-value-fix-val

(defthm update-static-var-of-value-fix-val
  (equal (update-static-var var (value-fix val)
                            compst)
         (update-static-var var val compst)))

Theorem: update-static-var-value-equiv-congruence-on-val

(defthm update-static-var-value-equiv-congruence-on-val
  (implies (value-equiv val val-equiv)
           (equal (update-static-var var val compst)
                  (update-static-var var val-equiv compst)))
  :rule-classes :congruence)

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

(defthm update-static-var-of-compustate-fix-compst
  (equal (update-static-var var val (compustate-fix compst))
         (update-static-var var val compst)))

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

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