• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
      • Abnf
      • Vwsim
      • Isar
      • Wp-gen
      • Dimacs-reader
      • Pfcs
      • Legacy-defrstobj
      • Proof-checker-array
      • Soft
      • C
      • Farray
      • Rp-rewriter
      • Instant-runoff-voting
      • Imp-language
      • Sidekick
      • Leftist-trees
      • Java
      • Riscv
        • Specification
        • Executable
        • Specialized
        • Optimized
          • State-stobj
            • Stat1
            • Write1-memory-unsigned64
            • Stat1-iso
            • Read1-memory-unsigned64
            • Stat1-from-stat
            • Write1-memory-unsigned32
            • Read1-memory-unsigned32
            • Write1-memory-unsigned16
            • Write1-memory-unsigned8
            • Read1-memory-unsigned16
            • Read1-instruction
            • Stat-from-stat1
            • Write1-xreg
            • Read1-xreg-unsigned32
            • Read1-xreg-unsigned
            • Read1-memory-unsigned8
            • Write1-xreg-32
            • Stat1-validp
            • Read1-xreg-signed32
            • Read1-xreg-signed
            • Write1-pc
            • Make-stat1
            • Error1
              • Read1-pc
              • Inc41-pc
              • Stat1->memory
              • Errorp1
        • Taspi
        • Bitcoin
        • Des
        • Ethereum
        • X86isa
        • Sha-2
        • Yul
        • Zcash
        • Proof-checker-itp13
        • Regex
        • ACL2-programming-language
        • Json
        • Jfkr
        • Equational
        • Cryptography
        • Poseidon
        • Where-do-i-place-my-book
        • Axe
        • Aleo
        • Bigmems
        • Builtins
        • Execloader
        • Solidity
        • Paco
        • Concurrent-programs
        • Bls12-377-curves
      • Debugging
      • Community
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • State-stobj

    Error1

    Refine error to use the stobj states.

    Definitions and Theorems

    Function: error1

    (defun error1 (stat feat)
     (declare (xargs :non-executable t))
     (declare
        (xargs :guard (non-exec (and (stat1p stat)
                                     (statp (stat-from-stat1 stat))
                                     (featp feat)
                                     (stat-validp (stat-from-stat1 stat)
                                                  feat)))))
     (prog2$ (acl2::throw-nonexec-error 'error1
                                        (list stat feat))
             (let ((change-stat stat) (stat->error t))
               (if (acl2::mbt$ (stat1p change-stat))
                   (let ((change-stat (stat-from-stat1 change-stat)))
                     (stat (stat->xregs change-stat)
                           (stat->pc change-stat)
                           (stat->memory change-stat)
                           stat->error))
                 0))))

    Theorem: error1-to-error

    (defthm error1-to-error
      (implies (stat1p stat)
               (equal (error1 stat feat)
                      (error (stat-from-stat1 stat) feat)))
      :rule-classes :rewrite)

    Theorem: error-to-error1

    (defthm error-to-error1
      (implies (statp stat)
               (equal (error stat feat)
                      (error1 (stat1-from-stat stat) feat)))
      :rule-classes :rewrite)