• 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
        • Soft
        • C
        • Bv
        • Imp-language
        • Event-macros
        • Java
        • Riscv
          • Specification
          • Executable
          • Specialized
          • Optimized
            • State-stobj
              • Stat1
              • Stat1-iso
              • Stat1-from-stat
              • Write1-memory-unsigned64
              • Stat-from-stat1
                • Read1-memory-unsigned64
                • Write1-memory-unsigned32
                • Make-stat1
                • Write1-xreg
                • Write1-memory-unsigned8
                • Write1-memory-unsigned16
                • Stat1->memory
                • Read1-memory-unsigned32
                • Read1-instruction
                • Write1-xreg-32
                • Write1-pc
                • Read1-memory-unsigned16
                • Stat1-validp
                • Read1-xreg-unsigned32
                • Read1-xreg-unsigned
                • Read1-xreg-signed32
                • Read1-memory-unsigned8
                • Inc1-4-pc
                • Error1
                • Read1-xreg-signed
                • Read1-pc
                • Errorp1
          • Bitcoin
          • Ethereum
          • Yul
          • Zcash
          • ACL2-programming-language
          • Prime-fields
          • Json
          • Syntheto
          • File-io-light
          • Cryptography
          • Number-theory
          • Lists-light
          • Axe
          • Builtins
          • Solidity
          • Helpers
          • Htclient
          • Typed-lists-light
          • Arithmetic-light
        • X86isa
        • Axe
        • Execloader
      • Math
      • Testing-utilities
    • State-stobj

    Stat-from-stat1

    Turn a stat1 value into a stat value.

    Signature
    (stat-from-stat1 stat1) → stat
    Arguments
    stat1 — Guard (stat1p stat1).
    Returns
    stat — Type (statp stat).

    A transformation that generates the stobj definition from stat could also generate this conversion function.

    This is not quite executable, because it calls the non-executable stat1->memory.

    Definitions and Theorems

    Function: stat-from-stat1

    (defun stat-from-stat1 (stat1)
      (declare (xargs :stobjs (stat1)))
      (declare (xargs :guard (stat1p stat1)))
      (let ((__function__ 'stat-from-stat1))
        (declare (ignorable __function__))
        (make-stat :xregs (stat1->xregs stat1)
                   :pc (stat1->pc stat1)
                   :memory (stat1->memory stat1)
                   :error (stat1->error stat1))))

    Theorem: statp-of-stat-from-stat1

    (defthm statp-of-stat-from-stat1
      (b* ((stat (stat-from-stat1 stat1)))
        (statp stat))
      :rule-classes :rewrite)