• 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
            • Formalized-subset
            • Mapping-to-language-definition
            • Input-files
            • Compilation-database
            • Printer
            • Output-files
            • Abstract-syntax-operations
            • Implementation-environments
            • Abstract-syntax
              • Abstract-syntax-trees
                • Expr
                • Type-spec
                • Exprs/decls/stmts
                  • Expr
                  • Type-spec
                  • Stmt
                  • Amb-expr/tyname
                  • Dirdeclor
                  • Asm-stmt
                  • Attrib
                  • Amb-decl/stmt
                  • Dirabsdeclor
                  • Decl-spec
                  • Struct-declon
                  • Amb-declor/absdeclor
                  • Struni-spec
                  • Param-declor
                  • Declor
                  • Initdeclor
                  • Absdeclor
                  • Tyname
                  • Label
                  • Align-spec
                  • Expr-option
                  • Spec/qual
                  • Desiniter
                  • Param-declon
                  • Dirabsdeclor-option
                  • Comp-stmt
                  • Const-expr-option
                  • Attrib-spec
                  • Struct-declor
                  • Decl
                  • Initer
                  • Absdeclor-option
                  • Statassert
                  • Member-designor
                  • Initer-option
                  • Enum-spec
                  • Declor-option
                  • Block-item
                  • Const-expr
                  • Genassoc
                  • Asm-output
                  • Asm-input
                  • Designor
                  • Enumer
                  • Typequal/attribspec
                  • Typequal/attribspec-list
                  • Decl-spec-list
                  • Spec/qual-list
                  • Desiniter-list
                  • Attrib-spec-list
                  • Param-declon-list
                  • Decl-list
                  • Typequal/attribspec-list-list
                  • Struct-declor-list
                  • Struct-declon-list
                    • Struct-declon-listp
                    • Struct-declon-list-equiv
                      • Struct-declon-list-fix
                    • Initdeclor-list
                    • Genassoc-list
                    • Block-item-list
                    • Enumer-list
                    • Expr-list
                    • Asm-output-list
                    • Asm-input-list
                    • Designor-list
                    • Attrib-list
                  • Binop
                  • Stmt
                  • Unop
                  • Amb-expr/tyname
                  • Dirdeclor
                  • Asm-stmt
                  • Dec/oct/hex-const
                  • Simple-escape
                  • Fsuffix
                  • Attrib
                  • Ident
                  • Amb-decl/stmt
                  • Dirabsdeclor
                  • Type-qual
                  • Decl-spec
                  • Fundef
                  • Struct-declon
                  • Asm-name-spec
                  • Amb-declor/absdeclor
                  • Struni-spec
                  • Param-declor
                  • Declor
                  • Stor-spec
                  • Transunit-ensemble
                  • Initdeclor
                  • Absdeclor
                  • Tyname
                  • Keyword-uscores
                  • Label
                  • Align-spec
                  • Expr-option
                  • Spec/qual
                  • Lsuffix
                  • Hex-frac-const
                  • Desiniter
                  • Param-declon
                  • Iconst
                  • Dirabsdeclor-option
                  • Dec-frac-const
                  • Dec-core-fconst
                  • Comp-stmt
                  • Extdecl
                  • Const-expr-option
                  • Amb?-declor/absdeclor
                  • Isuffix
                  • Hex-core-fconst
                  • Attrib-spec
                  • Struct-declor
                  • Escape
                  • Decl
                  • Amb?-expr/tyname
                  • Initer
                  • Ident-option
                  • Bin-expo
                  • Absdeclor-option
                  • Statassert
                  • Member-designor
                  • Initer-option
                  • Enum-spec
                  • Declor-option
                  • Const
                  • Block-item
                  • Hex-quad
                  • Eprefix
                  • Const-expr
                  • Oct-escape
                  • Inc/dec-op
                  • Fun-spec
                  • Dec-expo
                  • Cprefix-option
                  • Asm-name-spec-option
                  • Amb?-decl/stmt
                  • S-char
                  • Isuffix-option
                  • Genassoc
                  • Fsuffix-option
                  • Fconst
                  • Eprefix-option
                  • Dec-expo-option
                  • Cprefix
                  • C-char
                  • Type-spec-option
                  • Sign-option
                  • Sign
                  • Q-char
                  • Iconst-option
                  • H-char
                  • Fundef-option
                  • Asm-output
                  • Asm-input
                  • Designor
                  • Const-option
                  • Usuffix
                  • Univ-char-name
                  • Hprefix
                  • Enumer
                  • Attrib-name
                  • Transunit
                  • Asm-qual
                  • Typequal/attribspec
                  • Stringlit
                  • Dec-expo-prefix
                  • Bin-expo-prefix
                  • Header-name
                  • Cconst
                  • Expr/tyname
                  • Decl/stmt
                  • Declor/absdeclor
                  • Asm-clobber
                  • Typequal/attribspec-list
                  • Decl-spec-list
                  • Stringlit-list
                  • Spec/qual-list
                  • Inc/dec-op-list
                  • Desiniter-list
                  • Attrib-spec-list
                  • S-char-list
                  • Q-char-list
                  • Param-declon-list
                  • H-char-list
                  • Decl-list
                  • C-char-list
                  • Typequal/attribspec-list-list
                  • Struct-declor-list
                  • Struct-declon-list
                    • Struct-declon-listp
                    • Struct-declon-list-equiv
                      • Struct-declon-list-fix
                    • Initdeclor-list
                    • Genassoc-list
                    • Extdecl-list
                    • Block-item-list
                    • Enumer-list
                    • Ident-list
                    • Filepath-transunit-map
                    • Expr-list
                    • Asm-qual-list
                    • Asm-output-list
                    • Asm-input-list
                    • Asm-clobber-list
                    • Type-spec-list
                    • Stor-spec-list
                    • Ident-set
                    • Ident-option-set
                    • Ident-list-list
                    • Eprefix-option-list
                    • Designor-list
                    • Attrib-list
                  • Abstract-syntax-irrelevants
                  • Type-specifier-lists
                  • Ascii-identifiers
                  • Abstraction-mapping
                  • Standard
                  • Storage-specifier-lists
                  • Code-ensembles
                  • Purity
                  • Make-self-code-ensemble
                • Concrete-syntax
                • Disambiguation
                • Validation
                • Gcc-builtins
                • Preprocessing
                • Parsing
              • Atc
              • Transformation-tools
              • Language
              • 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
      • Struct-declon-list

      Struct-declon-list-equiv

      Basic equivalence relation for struct-declon-list structures.

      Definitions and Theorems

      Function: struct-declon-list-equiv$inline

      (defun struct-declon-list-equiv$inline (acl2::x acl2::y)
        (declare (xargs :guard (and (struct-declon-listp acl2::x)
                                    (struct-declon-listp acl2::y))))
        (equal (struct-declon-list-fix acl2::x)
               (struct-declon-list-fix acl2::y)))

      Theorem: struct-declon-list-equiv-is-an-equivalence

      (defthm struct-declon-list-equiv-is-an-equivalence
        (and (booleanp (struct-declon-list-equiv x y))
             (struct-declon-list-equiv x x)
             (implies (struct-declon-list-equiv x y)
                      (struct-declon-list-equiv y x))
             (implies (and (struct-declon-list-equiv x y)
                           (struct-declon-list-equiv y z))
                      (struct-declon-list-equiv x z)))
        :rule-classes (:equivalence))

      Theorem: struct-declon-list-equiv-implies-equal-struct-declon-list-fix-1

      (defthm
          struct-declon-list-equiv-implies-equal-struct-declon-list-fix-1
        (implies (struct-declon-list-equiv acl2::x x-equiv)
                 (equal (struct-declon-list-fix acl2::x)
                        (struct-declon-list-fix x-equiv)))
        :rule-classes (:congruence))

      Theorem: struct-declon-list-fix-under-struct-declon-list-equiv

      (defthm struct-declon-list-fix-under-struct-declon-list-equiv
        (struct-declon-list-equiv (struct-declon-list-fix acl2::x)
                                  acl2::x)
        :rule-classes (:rewrite :rewrite-quoted-constant))

      Theorem: equal-of-struct-declon-list-fix-1-forward-to-struct-declon-list-equiv

      (defthm
       equal-of-struct-declon-list-fix-1-forward-to-struct-declon-list-equiv
       (implies (equal (struct-declon-list-fix acl2::x)
                       acl2::y)
                (struct-declon-list-equiv acl2::x acl2::y))
       :rule-classes :forward-chaining)

      Theorem: equal-of-struct-declon-list-fix-2-forward-to-struct-declon-list-equiv

      (defthm
       equal-of-struct-declon-list-fix-2-forward-to-struct-declon-list-equiv
       (implies (equal acl2::x
                       (struct-declon-list-fix acl2::y))
                (struct-declon-list-equiv acl2::x acl2::y))
       :rule-classes :forward-chaining)

      Theorem: struct-declon-list-equiv-of-struct-declon-list-fix-1-forward

      (defthm struct-declon-list-equiv-of-struct-declon-list-fix-1-forward
       (implies (struct-declon-list-equiv (struct-declon-list-fix acl2::x)
                                          acl2::y)
                (struct-declon-list-equiv acl2::x acl2::y))
       :rule-classes :forward-chaining)

      Theorem: struct-declon-list-equiv-of-struct-declon-list-fix-2-forward

      (defthm struct-declon-list-equiv-of-struct-declon-list-fix-2-forward
        (implies
             (struct-declon-list-equiv acl2::x
                                       (struct-declon-list-fix acl2::y))
             (struct-declon-list-equiv acl2::x acl2::y))
        :rule-classes :forward-chaining)