• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
      • Sv
        • Svex-stvs
        • Svex-decomposition-methodology
        • Sv-versus-esim
        • Svex-decomp
        • Svex-compose-dfs
        • Svex-compilation
        • Moddb
        • Svmods
        • Svstmt
        • Sv-tutorial
        • Expressions
          • Rewriting
          • Svex
            • Svar
            • Least-fixpoint
            • Svex-p
            • Svex-select
            • Svex-alist
            • Svex-equiv
            • Svexlist
            • Svex-call
            • Fnsym
            • Svex-quote
              • Svex-quote->val
                • Make-svex-quote
                • Change-svex-quote
              • Svex-var
              • Svcall-rw
              • Svcall
              • Svex-kind
              • Svcall*
              • Svex-fix
              • Svex-count
              • Svex-1z
              • Svex-1x
              • Svex-z
              • Svex-x
            • Bit-blasting
            • Functions
            • 4vmask
            • Why-infinite-width
            • Svex-vars
            • Evaluation
            • Values
          • Symbolic-test-vector
          • Vl-to-svex
        • Fgl
        • Vwsim
        • Vl
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Svex-quote

    Svex-quote->val

    Get the val field from a svex-quote.

    Signature
    (svex-quote->val x) → val
    Arguments
    x — Guard (svex-p x).
    Returns
    val — Type (4vec-p val).

    This is an ordinary field accessor created by defprod.

    Definitions and Theorems

    Function: svex-quote->val$inline

    (defun svex-quote->val$inline (x)
      (declare (xargs :guard (svex-p x)))
      (declare (xargs :guard (equal (svex-kind x) :quote)))
      (let ((__function__ 'svex-quote->val))
        (declare (ignorable __function__))
        (mbe :logic
             (b* ((x (and (equal (svex-kind x) :quote) x)))
               (4vec-fix x))
             :exec x)))

    Theorem: 4vec-p-of-svex-quote->val

    (defthm 4vec-p-of-svex-quote->val
      (b* ((val (svex-quote->val$inline x)))
        (4vec-p val))
      :rule-classes :rewrite)

    Theorem: svex-quote->val$inline-of-svex-fix-x

    (defthm svex-quote->val$inline-of-svex-fix-x
      (equal (svex-quote->val$inline (svex-fix x))
             (svex-quote->val$inline x)))

    Theorem: svex-quote->val$inline-svex-equiv-congruence-on-x

    (defthm svex-quote->val$inline-svex-equiv-congruence-on-x
      (implies (svex-equiv x x-equiv)
               (equal (svex-quote->val$inline x)
                      (svex-quote->val$inline x-equiv)))
      :rule-classes :congruence)

    Theorem: svex-quote->val-when-wrong-kind

    (defthm svex-quote->val-when-wrong-kind
      (implies (not (equal (svex-kind x) :quote))
               (equal (svex-quote->val x)
                      (4vec-fix nil))))