• 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
            • 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
              • Ia32e-pdpte-1gb-pagebits
              • Ia32e-pde-2mb-pagebits
              • Ia32e-pte-4k-pagebits
              • Ia32e-pml4ebits
              • Ia32e-pdpte-pg-dirbits
              • Ia32e-pde-pg-tablebits
              • Ia32e-page-tablesbits
                • Ia32e-page-tablesbits-p
                • !ia32e-page-tablesbits->reference-addr
                • !ia32e-page-tablesbits->res2
                • !ia32e-page-tablesbits->res1
                • !ia32e-page-tablesbits->xd
                • !ia32e-page-tablesbits->u/s
                • !ia32e-page-tablesbits->r/w
                • !ia32e-page-tablesbits->pwt
                • !ia32e-page-tablesbits->ps
                • !ia32e-page-tablesbits->pcd
                • !ia32e-page-tablesbits->d
                • !ia32e-page-tablesbits->a
                • !ia32e-page-tablesbits->p
                • Ia32e-page-tablesbits->reference-addr
                • Ia32e-page-tablesbits-fix
                • Ia32e-page-tablesbits->res2
                • Ia32e-page-tablesbits->res1
                • Ia32e-page-tablesbits->xd
                • Ia32e-page-tablesbits->u/s
                • Ia32e-page-tablesbits->r/w
                • Ia32e-page-tablesbits->pwt
                • Ia32e-page-tablesbits->ps
                • Ia32e-page-tablesbits->pcd
                • Ia32e-page-tablesbits->p
                • Ia32e-page-tablesbits->d
                • Ia32e-page-tablesbits->a
                • Ia32e-pdpte-1gb-pagebits-equiv-under-mask
                • Ia32e-pdpte-1gb-pagebits-debug
                • Ia32e-pte-4k-pagebits-equiv-under-mask
                • Ia32e-pte-4k-pagebits-debug
                • Ia32e-pml4ebits-equiv-under-mask
                • Ia32e-pdpte-pg-dirbits-equiv-under-mask
                • Ia32e-pde-pg-tablebits-equiv-under-mask
                • Ia32e-pde-2mb-pagebits-equiv-under-mask
                • Ia32e-pde-2mb-pagebits-debug
                • Ia32e-page-tablesbits-equiv-under-mask
                • Ia32e-pml4ebits-debug
                • Ia32e-pdpte-pg-dirbits-debug
                • Ia32e-pde-pg-tablebits-debug
                • Ia32e-page-tablesbits-debug
              • 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
    • Ia32e-page-tablesbits

    Ia32e-page-tablesbits->a

    Access the |ACL2|::|A| field of a ia32e-page-tablesbits bit structure.

    Signature
    (ia32e-page-tablesbits->a x) → a
    Arguments
    x — Guard (ia32e-page-tablesbits-p x).
    Returns
    a — Type (bitp a).

    Definitions and Theorems

    Function: ia32e-page-tablesbits->a$inline

    (defun ia32e-page-tablesbits->a$inline (x)
     (declare (xargs :guard (ia32e-page-tablesbits-p x)))
     (mbe
        :logic
        (let ((x (ia32e-page-tablesbits-fix x)))
          (part-select x :low 5 :width 1))
        :exec (the (unsigned-byte 1)
                   (logand (the (unsigned-byte 1) 1)
                           (the (unsigned-byte 59)
                                (ash (the (unsigned-byte 64) x) -5))))))

    Theorem: bitp-of-ia32e-page-tablesbits->a

    (defthm bitp-of-ia32e-page-tablesbits->a
      (b* ((a (ia32e-page-tablesbits->a$inline x)))
        (bitp a))
      :rule-classes :rewrite)

    Theorem: ia32e-page-tablesbits->a$inline-of-ia32e-page-tablesbits-fix-x

    (defthm
         ia32e-page-tablesbits->a$inline-of-ia32e-page-tablesbits-fix-x
     (equal
         (ia32e-page-tablesbits->a$inline (ia32e-page-tablesbits-fix x))
         (ia32e-page-tablesbits->a$inline x)))

    Theorem: ia32e-page-tablesbits->a$inline-ia32e-page-tablesbits-equiv-congruence-on-x

    (defthm
     ia32e-page-tablesbits->a$inline-ia32e-page-tablesbits-equiv-congruence-on-x
     (implies (ia32e-page-tablesbits-equiv x x-equiv)
              (equal (ia32e-page-tablesbits->a$inline x)
                     (ia32e-page-tablesbits->a$inline x-equiv)))
     :rule-classes :congruence)

    Theorem: ia32e-page-tablesbits->a-of-ia32e-page-tablesbits

    (defthm ia32e-page-tablesbits->a-of-ia32e-page-tablesbits
     (equal
      (ia32e-page-tablesbits->a
         (ia32e-page-tablesbits p r/w u/s pwt
                                pcd a d ps res1 reference-addr res2 xd))
      (bfix a)))

    Theorem: ia32e-page-tablesbits->a-of-write-with-mask

    (defthm ia32e-page-tablesbits->a-of-write-with-mask
      (implies
           (and (fty::bitstruct-read-over-write-hyps
                     x
                     ia32e-page-tablesbits-equiv-under-mask)
                (ia32e-page-tablesbits-equiv-under-mask x y fty::mask)
                (equal (logand (lognot fty::mask) 32)
                       0))
           (equal (ia32e-page-tablesbits->a x)
                  (ia32e-page-tablesbits->a y))))