• 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
              • Integer-format-templates
                • Integer-format
                • Uinteger-sinteger-bit-roles-wfp
                • Sinteger-format
                • Uinteger-format
                • Sinteger-format->min
                • Integer-format-inc-sign-tcnpnt
                • Sinteger-bit-role
                • Sinteger-bit-roles-wfp
                • Uinteger-bit-role
                • Uinteger-bit-roles-wfp
                • Uinteger+sinteger-format
                • Sinteger-bit-roles-value-count
                • Uinteger-bit-roles-value-count
                • Sinteger-bit-roles-inc-n-and-sign
                • Uinteger-bit-roles-inc-n
                • Sinteger-format-inc-sign-tcnpnt
                • Sinteger-bit-roles-inc-n
                • Uinteger-bit-roles-exponents
                • Sinteger-bit-roles-exponents
                • Sinteger-format->max
                • Integer-format->bit-size
                • Uinteger-format->max
                • Sinteger-bit-roles-sign-count
                • Integer-format->signed-min
                • Uinteger-format-inc-npnt
                • Integer-format->unsigned-max
                • Integer-format->signed-max
                • Uinteger-bit-role-list
                  • Uinteger-bit-role-list-fix
                  • Uinteger-bit-role-list-equiv
                    • Uinteger-bit-role-listp
                  • Sinteger-bit-role-list
                  • Uinteger-sinteger-bit-roles-wfp-of-inc-n-and-sign
                • Ienv
                • Integer-formats
                • Ienv-ushort-rangep
                • Ienv-ulong-rangep
                • Ienv-ullong-rangep
                • Ienv-uint-rangep
                • Ienv-uchar-rangep
                • Ienv-sshort-rangep
                • Ienv-slong-rangep
                • Ienv-sllong-rangep
                • Ienv-sint-rangep
                • Ienv-schar-rangep
                • Ienv-char-rangep
                • Ienv->schar-min
                • Ienv->schar-max
                • Ienv->char-size
                • Ienv->char-min
                • Ienv->char-max
                • Ienv->uchar-max
                • Ienv->short-bit-size
                • Ienv->long-bit-size
                • Ienv->llong-bit-size
                • Ienv->int-bit-size
                • Ienv->short-byte-size
                • Ienv->long-byte-size
                • Ienv->llong-byte-size
                • Ienv->int-byte-size
                • Versions
                • Ienv->ushort-max
                • Ienv->ullong-max
                • Ienv->sshort-min
                • Ienv->sllong-min
                • Ienv->sllong-max
                • Ienv->bool-byte-size
                • Ienv->bool-bit-size
                • Ienv->ulong-max
                • Ienv->uint-max
                • Ienv->sshort-max
                • Ienv->slong-min
                • Ienv->slong-max
                • Ienv->sint-min
                • Ienv->sint-max
                • Schar-formats
                • Char-formats
                • Uchar-formats
                • Signed-formats
                • Bool-formats
              • Dynamic-semantics
              • Static-semantics
              • Grammar
              • Types
              • Integer-formats-definitions
              • Computation-states
              • 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
    • Uinteger-bit-role-list

    Uinteger-bit-role-list-equiv

    Basic equivalence relation for uinteger-bit-role-list structures.

    Definitions and Theorems

    Function: uinteger-bit-role-list-equiv$inline

    (defun uinteger-bit-role-list-equiv$inline (acl2::x acl2::y)
      (declare (xargs :guard (and (uinteger-bit-role-listp acl2::x)
                                  (uinteger-bit-role-listp acl2::y))))
      (equal (uinteger-bit-role-list-fix acl2::x)
             (uinteger-bit-role-list-fix acl2::y)))

    Theorem: uinteger-bit-role-list-equiv-is-an-equivalence

    (defthm uinteger-bit-role-list-equiv-is-an-equivalence
      (and (booleanp (uinteger-bit-role-list-equiv x y))
           (uinteger-bit-role-list-equiv x x)
           (implies (uinteger-bit-role-list-equiv x y)
                    (uinteger-bit-role-list-equiv y x))
           (implies (and (uinteger-bit-role-list-equiv x y)
                         (uinteger-bit-role-list-equiv y z))
                    (uinteger-bit-role-list-equiv x z)))
      :rule-classes (:equivalence))

    Theorem: uinteger-bit-role-list-equiv-implies-equal-uinteger-bit-role-list-fix-1

    (defthm
     uinteger-bit-role-list-equiv-implies-equal-uinteger-bit-role-list-fix-1
     (implies (uinteger-bit-role-list-equiv acl2::x x-equiv)
              (equal (uinteger-bit-role-list-fix acl2::x)
                     (uinteger-bit-role-list-fix x-equiv)))
     :rule-classes (:congruence))

    Theorem: uinteger-bit-role-list-fix-under-uinteger-bit-role-list-equiv

    (defthm
          uinteger-bit-role-list-fix-under-uinteger-bit-role-list-equiv
      (uinteger-bit-role-list-equiv (uinteger-bit-role-list-fix acl2::x)
                                    acl2::x)
      :rule-classes (:rewrite :rewrite-quoted-constant))

    Theorem: equal-of-uinteger-bit-role-list-fix-1-forward-to-uinteger-bit-role-list-equiv

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

    Theorem: equal-of-uinteger-bit-role-list-fix-2-forward-to-uinteger-bit-role-list-equiv

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

    Theorem: uinteger-bit-role-list-equiv-of-uinteger-bit-role-list-fix-1-forward

    (defthm
     uinteger-bit-role-list-equiv-of-uinteger-bit-role-list-fix-1-forward
     (implies
      (uinteger-bit-role-list-equiv (uinteger-bit-role-list-fix acl2::x)
                                    acl2::y)
      (uinteger-bit-role-list-equiv acl2::x acl2::y))
     :rule-classes :forward-chaining)

    Theorem: uinteger-bit-role-list-equiv-of-uinteger-bit-role-list-fix-2-forward

    (defthm
     uinteger-bit-role-list-equiv-of-uinteger-bit-role-list-fix-2-forward
     (implies (uinteger-bit-role-list-equiv
                   acl2::x
                   (uinteger-bit-role-list-fix acl2::y))
              (uinteger-bit-role-list-equiv acl2::x acl2::y))
     :rule-classes :forward-chaining)