• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Community
    • Std
    • 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
        • Debugging-code-proofs
          • System-level-marking-view-proof-utilities
            • Rb-alt
            • Unwind-x86-interpreter-in-marking-view
            • Program-at-alt
            • Get-prefixes-alt
            • Get-prefixes-in-system-level-marking-view
            • Rb-in-system-level-marking-view
            • Xlate-equiv-memory-and-rml08
            • Reasoning-about-page-tables
            • Las-to-pas-two-n-ind-hint
            • Find-l-addrs-from-disjoint-p-of-las-to-pas-1-aux
            • Replace-element
            • Phys-mem-values-same
            • Non-marking-view-proof-utilities
            • App-view-proof-utilities
        • Axe
        • Execloader
      • Math
      • Testing-utilities
    • System-level-marking-view-proof-utilities

    Phys-mem-values-same

    Signature
    (phys-mem-values-same addrs x86-1 x86-2) → *

    Definitions and Theorems

    Function: phys-mem-values-same

    (defun phys-mem-values-same (addrs x86-1 x86-2)
      (declare (xargs :non-executable t))
      (declare (xargs :guard t))
      (prog2$ (acl2::throw-nonexec-error 'phys-mem-values-same
                                         (list addrs x86-1 x86-2))
              (let ((__function__ 'phys-mem-values-same))
                (declare (ignorable __function__))
                (if (atom addrs)
                    t
                  (and (equal (xr :mem (car addrs) x86-1)
                              (xr :mem (car addrs) x86-2))
                       (phys-mem-values-same (cdr addrs)
                                             x86-1 x86-2))))))