• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
    • Software-verification
      • Kestrel-books
      • X86isa
        • Program-execution
        • Sdm-instruction-set-summary
        • Tlb
        • Running-linux
        • Introduction
        • Asmtest
        • X86isa-build-instructions
        • Publications
        • Contributors
        • Machine
        • Implemented-opcodes
        • To-do
        • Proof-utilities
        • Peripherals
        • Model-validation
        • Modelcalls
        • Concrete-simulation-examples
        • Utils
          • Structures
            • Rflagsbits
            • Cr4bits
            • Xcr0bits
            • Cr0bits
            • Prefixes
            • Ia32_eferbits
            • Evex-byte1
            • Cr3bits
            • Evex-byte3
            • Vex3-byte2
            • Vex3-byte1
            • Vex2-byte1
            • Evex-prefixes
            • Evex-byte2
            • Vex-prefixes
              • !vex-prefixes->byte1
              • !vex-prefixes->byte2
              • !vex-prefixes->byte0
              • Vex-prefixes-p
              • Vex-prefixes->byte2
              • Vex-prefixes->byte1
                • Vex-prefixes->byte0
                • Vex-prefixes-fix
              • Sib
              • Modr/m-structures
              • Vex-prefixes-layout-structures
              • Sib-structures
              • Legacy-prefixes-layout-structure
              • Evex-prefixes-layout-structures
              • Cr8bits
              • Opcode-maps-structures
              • Segmentation-bitstructs
              • 8bits
              • 2bits
              • 4bits
              • 16bits
              • Paging-bitstructs
              • 3bits
              • 11bits
              • 40bits
              • 5bits
              • 32bits
              • 19bits
              • 10bits
              • 7bits
              • 64bits
              • 54bits
              • 45bits
              • 36bits
              • 31bits
              • 24bits
              • 22bits
              • 17bits
              • 13bits
              • 12bits
              • 6bits
              • Vex->x
              • Vex->b
              • Vex-prefixes-map-p
              • Vex-prefixes-byte0-p
              • Vex->w
              • Vex->vvvv
              • Vex->r
              • Fp-bitstructs
              • Cr4bits-debug
              • Vex->pp
              • Vex->l
              • Rflagsbits-debug
              • Evex->v-prime
              • Evex->z
              • Evex->w
              • Evex->vvvv
              • Evex->vl/rc
              • Evex->pp
              • Evex->aaa
              • Xcr0bits-debug
              • Vex3-byte1-equiv-under-mask
              • Vex3-byte2-equiv-under-mask
              • Vex2-byte1-equiv-under-mask
              • Vex-prefixes-equiv-under-mask
              • Rflagsbits-equiv-under-mask
              • Ia32_eferbits-equiv-under-mask
              • Evex-prefixes-equiv-under-mask
              • Evex-byte3-equiv-under-mask
              • Evex-byte2-equiv-under-mask
              • Evex-byte1-equiv-under-mask
              • Cr0bits-debug
              • Xcr0bits-equiv-under-mask
              • Sib-equiv-under-mask
              • Prefixes-equiv-under-mask
              • Cr8bits-equiv-under-mask
              • Cr4bits-equiv-under-mask
              • Cr3bits-equiv-under-mask
              • Cr0bits-equiv-under-mask
              • Vex3-byte1-debug
              • Prefixes-debug
              • Ia32_eferbits-debug
              • Evex-byte1-debug
              • Vex3-byte2-debug
              • Vex2-byte1-debug
              • Vex-prefixes-debug
              • Evex-prefixes-debug
              • Evex-byte3-debug
              • Evex-byte2-debug
              • Cr3bits-debug
              • Sib-debug
              • Cr8bits-debug
            • Utilities
          • Debugging-code-proofs
        • Axe
        • Execloader
      • Math
      • Testing-utilities
    • Vex-prefixes

    Vex-prefixes->byte1

    Access the |X86ISA|::|BYTE1| field of a vex-prefixes bit structure.

    Signature
    (vex-prefixes->byte1 x) → byte1
    Arguments
    x — Guard (vex-prefixes-p x).
    Returns
    byte1 — Type (8bits-p byte1).

    Definitions and Theorems

    Function: vex-prefixes->byte1$inline

    (defun vex-prefixes->byte1$inline (x)
     (declare (xargs :guard (vex-prefixes-p x)))
     (mbe
        :logic
        (let ((x (vex-prefixes-fix x)))
          (part-select x :low 8 :width 8))
        :exec (the (unsigned-byte 8)
                   (logand (the (unsigned-byte 8) 255)
                           (the (unsigned-byte 16)
                                (ash (the (unsigned-byte 24) x) -8))))))

    Theorem: 8bits-p-of-vex-prefixes->byte1

    (defthm 8bits-p-of-vex-prefixes->byte1
      (b* ((byte1 (vex-prefixes->byte1$inline x)))
        (8bits-p byte1))
      :rule-classes :rewrite)

    Theorem: vex-prefixes->byte1$inline-of-vex-prefixes-fix-x

    (defthm vex-prefixes->byte1$inline-of-vex-prefixes-fix-x
      (equal (vex-prefixes->byte1$inline (vex-prefixes-fix x))
             (vex-prefixes->byte1$inline x)))

    Theorem: vex-prefixes->byte1$inline-vex-prefixes-equiv-congruence-on-x

    (defthm
          vex-prefixes->byte1$inline-vex-prefixes-equiv-congruence-on-x
      (implies (vex-prefixes-equiv x x-equiv)
               (equal (vex-prefixes->byte1$inline x)
                      (vex-prefixes->byte1$inline x-equiv)))
      :rule-classes :congruence)

    Theorem: vex-prefixes->byte1-of-vex-prefixes

    (defthm vex-prefixes->byte1-of-vex-prefixes
      (equal (vex-prefixes->byte1 (vex-prefixes byte0 byte1 byte2))
             (8bits-fix byte1)))

    Theorem: vex-prefixes->byte1-of-write-with-mask

    (defthm vex-prefixes->byte1-of-write-with-mask
      (implies (and (fty::bitstruct-read-over-write-hyps
                         x vex-prefixes-equiv-under-mask)
                    (vex-prefixes-equiv-under-mask x y fty::mask)
                    (equal (logand (lognot fty::mask) 65280)
                           0))
               (equal (vex-prefixes->byte1 x)
                      (vex-prefixes->byte1 y))))