• 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
        • Soft
        • Bv
        • Imp-language
        • Ethereum
        • Event-macros
        • Java
        • Riscv
        • Bitcoin
        • Zcash
        • Yul
          • Transformations
            • Renaming-variables
            • Dead-code-eliminator
            • Renamings
            • Disambiguator
            • Unique-variables
              • Statements/blocks/cases/fundefs-unique-vars
              • Var-unique-vars
              • Var-list-unique-vars
              • Statements/blocks/cases/fundefs-unique-vars-extend
              • Dead-code-eliminator-static-safety
              • No-function-definitions
              • Unique-functions
              • Renaming-functions
              • Dead-code-eliminator-no-loop-initializers
              • Dead-code-eliminator-no-function-definitions
              • No-loop-initializers
              • For-loop-init-rewriter
            • Language
            • Yul-json
          • 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
    • Unique-variables

    Statements/blocks/cases/fundefs-unique-vars-extend

    The ...-unique-vars functions extend the set of variables.

    That is, if they return a new set of variables (i.e. not an error), the new set is a superset of (or equal to) the initial set.

    Definitions and Theorems

    Theorem: statement-unique-vars-extend

    (defthm statement-unique-vars-extend
      (implies (identifier-setp allvars)
               (b* ((allvars1 (statement-unique-vars stmt allvars)))
                 (implies (not (reserrp allvars1))
                          (subset allvars allvars1)))))

    Theorem: statement-list-unique-vars-extend

    (defthm statement-list-unique-vars-extend
      (implies
           (identifier-setp allvars)
           (b* ((allvars1 (statement-list-unique-vars stmts allvars)))
             (implies (not (reserrp allvars1))
                      (subset allvars allvars1)))))

    Theorem: block-unique-vars-extend

    (defthm block-unique-vars-extend
      (implies (identifier-setp allvars)
               (b* ((allvars1 (block-unique-vars block allvars)))
                 (implies (not (reserrp allvars1))
                          (subset allvars allvars1)))))

    Theorem: block-option-unique-vars-extend

    (defthm block-option-unique-vars-extend
     (implies (identifier-setp allvars)
              (b* ((allvars1 (block-option-unique-vars block? allvars)))
                (implies (not (reserrp allvars1))
                         (subset allvars allvars1)))))

    Theorem: swcase-unique-vars-extend

    (defthm swcase-unique-vars-extend
      (implies (identifier-setp allvars)
               (b* ((allvars1 (swcase-unique-vars case allvars)))
                 (implies (not (reserrp allvars1))
                          (subset allvars allvars1)))))

    Theorem: swcase-list-unique-vars-extend

    (defthm swcase-list-unique-vars-extend
      (implies (identifier-setp allvars)
               (b* ((allvars1 (swcase-list-unique-vars cases allvars)))
                 (implies (not (reserrp allvars1))
                          (subset allvars allvars1)))))

    Theorem: fundef-unique-vars-extend

    (defthm fundef-unique-vars-extend
      (implies (identifier-setp allvars)
               (b* ((allvars1 (fundef-unique-vars fundef allvars)))
                 (implies (not (reserrp allvars1))
                          (subset allvars allvars1)))))