• 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
        • Transformation-tools
        • Language
          • Abstract-syntax
          • Integer-ranges
          • Implementation-environments
          • Dynamic-semantics
          • Static-semantics
          • Grammar
          • Types
          • Integer-formats-definitions
          • Computation-states
            • Write-object
            • Objdesign-of-var
            • Create-var
            • Compustate-scopes-numbers
            • Read-object
            • Compustate
            • Enter-scope
            • Frame
            • Exit-scope
            • Read-object-of-create-var
            • Compustate-scopes-numbers-aux
            • Compustate-option
            • Push-frame
            • Read-object-of-write-object
            • Pop-frame
            • Compustate-frames-number
            • Exit-scope-of-write-object
            • Compustate-option-result
            • Scope-list-result
            • Not-errorp-of-write-object-of-exit-scope
            • Compustate-result
            • Scope-result
            • Pop-frame-of-write-object
            • Compustate-top-frame-scopes-number
            • Not-errorp-of-write-object-of-pop-frame
            • Read-object-of-exit-scope
            • Heap
            • Top-frame
            • Read-object-of-pop-frame
            • Scope
            • Objdesign-of-var-of-create-var
            • Scope-list
            • Push/pop/top-frame-theorems
            • Objdesign-of-var-of-write-object
            • Frame-list
            • Compustatep-of-write-object-of-objdesign-of-var
            • Valuep-of-read-object-of-objdesign-of-var
            • Read-object-of-enter-scope
            • Objdesign-of-var-of-enter-scope
            • Entr/exit-scope-theorems
          • Portable-ascii-identifiers
          • Values
          • Integer-operations
          • Object-designators
          • Operations
          • Errors
          • Tag-environments
          • Function-environments
          • Character-sets
          • Flexible-array-member-removal
          • Arithmetic-operations
          • Pointer-operations
          • Real-operations
          • Array-operations
          • Scalar-operations
          • Structure-operations
        • 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

• Computation-states

Create-var

Create a variable in a computation state.

Signature

(create-var var val compst) → result

Arguments

var — Guard (identp var).

val — Guard (valuep val).

compst — Guard (compustatep compst).

Returns

result — Type (compustate-resultp result).

If there are no frames, we add the variable to the static storage; otherwise, we add the variable to the top scope of the top frame. The variable comes with a value. If there is already a variable with the same name (in the static storage or in the top scope of the top frame), we return an error: C disallows variable redefinition. However, there may well be a variable with the same in a different scope: in this case, the new variable hides the other one.

Prior to storing the value, we remove its flexible array member, if any. See remove-flexible-array-member.

Definitions and Theorems

Function: create-var

(defun create-var (var val compst)
  (declare (xargs :guard (and (identp var)
                              (valuep val)
                              (compustatep compst))))
  (b*
    ((var (ident-fix var))
     ((when (equal (compustate-frames-number compst)
                   0))
      (b* ((static (compustate->static compst))
           (pair (omap::assoc var static))
           ((when (consp pair))
            (error (list :var-redefinition var)))
           (new-static
                (omap::update var (remove-flexible-array-member val)
                              static))
           (new-compst (change-compustate compst
                                          :static new-static)))
        new-compst))
     (frame (top-frame compst))
     (scopes (frame->scopes frame))
     (scope (car scopes))
     (pair (omap::assoc var scope))
     ((when (consp pair))
      (error (list :var-redefinition var)))
     (new-scope (omap::update var (remove-flexible-array-member val)
                              scope))
     (new-scopes (cons new-scope (cdr scopes)))
     (new-frame (change-frame frame :scopes new-scopes))
     (new-compst (push-frame new-frame (pop-frame compst))))
    new-compst))

Theorem: compustate-resultp-of-create-var

(defthm compustate-resultp-of-create-var
  (b* ((result (create-var var val compst)))
    (compustate-resultp result))
  :rule-classes :rewrite)

Theorem: compustate-frames-number-of-create-var

(defthm compustate-frames-number-of-create-var
  (b* ((?result (create-var var val compst)))
    (implies (compustatep result)
             (equal (compustate-frames-number result)
                    (compustate-frames-number compst)))))

Theorem: compustate-scopes-numbers-of-create-var

(defthm compustate-scopes-numbers-of-create-var
  (implies (> (compustate-frames-number compst) 0)
           (b* ((?result (create-var var val compst)))
             (implies (compustatep result)
                      (equal (compustate-scopes-numbers result)
                             (compustate-scopes-numbers compst))))))

Theorem: assoc-of-compustate-static-of-create-var

(defthm assoc-of-compustate-static-of-create-var
 (b* ((compst1 (create-var var val compst)))
   (implies
        (and (not (errorp compst1))
             (identp var))
        (equal (omap::assoc var1 (compustate->static compst1))
               (if (and (equal var1 var)
                        (equal (compustate-frames-number compst)
                               0))
                   (cons var (remove-flexible-array-member val))
                 (omap::assoc var1 (compustate->static compst)))))))

Theorem: compustate->static-of-create-var-when-frames

(defthm compustate->static-of-create-var-when-frames
  (b* ((compst1 (create-var var val compst)))
    (implies (and (not (errorp compst1))
                  (> (compustate-frames-number compst) 0))
             (equal (compustate->static compst1)
                    (compustate->static compst)))))

Theorem: compustate->static-of-create-var

(defthm compustate->static-of-create-var
  (implies (not (errorp (create-var var val compst)))
           (equal (compustate->static (create-var var val compst))
                  (if (> (compustate-frames-number compst) 0)
                      (compustate->static compst)
                    (omap::update (ident-fix var)
                                  (remove-flexible-array-member val)
                                  (compustate->static compst))))))

Theorem: compustate->heap-of-create-var

(defthm compustate->heap-of-create-var
  (b* ((compst1 (create-var var val compst)))
    (implies (not (errorp compst1))
             (equal (compustate->heap compst1)
                    (compustate->heap compst)))))

Theorem: exit-scope-of-create-var

(defthm exit-scope-of-create-var
  (implies (and (> (compustate-frames-number compst) 0)
                (> (compustate-top-frame-scopes-number compst)
                   1)
                (not (errorp (create-var var val compst))))
           (equal (exit-scope (create-var var val compst))
                  (exit-scope compst))))

Theorem: pop-frame-of-create-var

(defthm pop-frame-of-create-var
  (implies (and (> (compustate-frames-number compst) 0)
                (not (errorp (create-var var val compst))))
           (equal (pop-frame (create-var var val compst))
                  (pop-frame compst))))

Theorem: create-var-of-ident-fix-var

(defthm create-var-of-ident-fix-var
  (equal (create-var (ident-fix var) val compst)
         (create-var var val compst)))

Theorem: create-var-ident-equiv-congruence-on-var

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

Theorem: create-var-of-value-fix-val

(defthm create-var-of-value-fix-val
  (equal (create-var var (value-fix val) compst)
         (create-var var val compst)))

Theorem: create-var-value-equiv-congruence-on-val

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

Theorem: create-var-of-compustate-fix-compst

(defthm create-var-of-compustate-fix-compst
  (equal (create-var var val (compustate-fix compst))
         (create-var var val compst)))

Theorem: create-var-compustate-equiv-congruence-on-compst

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