• Top
    • Documentation
    • Books
    • Recursion-and-induction
    • Boolean-reasoning
    • Debugging
    • Projects
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
      • Sv
      • Fgl
      • Vl
        • Syntax
        • Loader
          • Preprocessor
          • Vl-loadconfig
          • Vl-loadstate
            • Vl-loadstate-p
            • Vl-loadstate-fix
            • Make-vl-loadstate
            • Vl-loadstate-equiv
            • Vl-loadstate->descalist
            • Vl-loadstate->descs
            • Change-vl-loadstate
            • Vl-loadstate->reportcard
            • Vl-loadstate-warn
            • Vl-loadstate->spcache
            • Vl-loadstate->pstate
              • Vl-loadstate->iskips
              • Vl-loadstate->ifdefmap
              • Vl-loadstate->idcache
              • Vl-loadstate->filemap
              • Vl-loadstate->defmap
              • Vl-loadstate->defines
              • Vl-loadstate->config
              • Vl-loadstate-fatal
              • Vl-loadstate->bytes
              • Vl-loadstate-set-warnings
            • Lexer
            • Parser
            • Vl-load-merge-descriptions
            • Vl-find-basename/extension
            • Vl-load-file
            • Vl-loadresult
            • Vl-find-file
            • Scope-of-defines
            • Vl-flush-out-descriptions
            • Vl-description
            • Vl-read-file
            • Vl-includeskips-report-gather
            • Vl-load-main
            • Extended-characters
            • Vl-load
            • Vl-load-description
            • Vl-preprocess-debug
            • Vl-descriptions-left-to-load
            • Inject-warnings
            • Vl-read-file-report-gather
            • Vl-write-preprocessor-debug-file
            • Vl-load-descriptions
            • Vl-load-files
            • Translate-off
            • Vl-load-read-file-hook
            • Vl-loadstate-pad
            • Vl-read-file-report
            • Vl-load-summary
            • Vl-collect-modules-from-descriptions
            • Vl-loadstate->warnings
            • Vl-iskips-report
            • Vl-descriptionlist
          • Warnings
          • Getting-started
          • Utilities
          • Printer
          • Kit
          • Mlib
          • Transforms
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Testing-utilities
      • Math
    • Vl-loadstate

    Vl-loadstate->pstate

    Get the pstate field from a vl-loadstate.

    Signature
    (vl-loadstate->pstate x) → pstate
    Arguments
    x — Guard (vl-loadstate-p x).
    Returns
    pstate — Type (vl-parsestate-p pstate).

    This is an ordinary field accessor created by defprod.

    Definitions and Theorems

    Function: vl-loadstate->pstate$inline

    (defun
     vl-loadstate->pstate$inline (x)
     (declare (xargs :guard (vl-loadstate-p x)))
     (declare (xargs :guard t))
     (let
      ((__function__ 'vl-loadstate->pstate))
      (declare (ignorable __function__))
      (mbe
       :logic
       (b*
        ((x (and t x)))
        (vl-parsestate-fix
         (std::prod-cdr
              (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x)))))))
       :exec
       (std::prod-cdr
            (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x))))))))

    Theorem: vl-parsestate-p-of-vl-loadstate->pstate

    (defthm vl-parsestate-p-of-vl-loadstate->pstate
            (b* ((pstate (vl-loadstate->pstate$inline x)))
                (vl-parsestate-p pstate))
            :rule-classes :rewrite)

    Theorem: vl-loadstate->pstate$inline-of-vl-loadstate-fix-x

    (defthm vl-loadstate->pstate$inline-of-vl-loadstate-fix-x
            (equal (vl-loadstate->pstate$inline (vl-loadstate-fix x))
                   (vl-loadstate->pstate$inline x)))

    Theorem: vl-loadstate->pstate$inline-vl-loadstate-equiv-congruence-on-x

    (defthm
         vl-loadstate->pstate$inline-vl-loadstate-equiv-congruence-on-x
         (implies (vl-loadstate-equiv x x-equiv)
                  (equal (vl-loadstate->pstate$inline x)
                         (vl-loadstate->pstate$inline x-equiv)))
         :rule-classes :congruence)