• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • ACL2
    • Macro-libraries
    • 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-select-staticify-assignment
              • Svex-select-fix
              • Svex-select-case
              • Svex-select-split-static
              • Svex-select-p
              • Svex-selects-merge
              • Svex-select-replace-indices
              • Svex-select-vars
              • Svex-select-to-svex-with-substitution
              • Svex-select-equiv
              • Svex-select-part
                • Svex-select-part->subexp
                  • Svex-select-part->width
                  • Make-svex-select-part
                  • Svex-select-part->lsb
                  • Change-svex-select-part
                • Svex-select-count
                • Svex-select-var
                • Svex-select-to-lhs
                • Svex-select-staticp
                • Svex-select-inner-var
                • Svex-select->indices
                • Svex-select-to-svex
                • Svex-select-inner-width
                • Svex-select->width
                • Svex-select-kind
              • Svex-alist
              • Svex-equiv
              • Svexlist
              • Svex-call
              • Fnsym
              • 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-select-part

    Svex-select-part->subexp

    Get the subexp field from a svex-select-part.

    Signature
    (svex-select-part->subexp x) → subexp
    Arguments
    x — Guard (svex-select-p x).
    Returns
    subexp — Type (svex-select-p subexp).

    This is an ordinary field accessor created by defprod.

    Definitions and Theorems

    Function: svex-select-part->subexp$inline

    (defun svex-select-part->subexp$inline (x)
     (declare (xargs :guard (svex-select-p x)))
     (declare (xargs :guard (equal (svex-select-kind x) :part)))
     (let ((__function__ 'svex-select-part->subexp))
       (declare (ignorable __function__))
       (mbe :logic
            (b* ((x (and (equal (svex-select-kind x) :part)
                         x)))
              (svex-select-fix (std::prod-cdr (std::prod-cdr (cdr x)))))
            :exec (std::prod-cdr (std::prod-cdr (cdr x))))))

    Theorem: svex-select-p-of-svex-select-part->subexp

    (defthm svex-select-p-of-svex-select-part->subexp
      (b* ((subexp (svex-select-part->subexp$inline x)))
        (svex-select-p subexp))
      :rule-classes :rewrite)

    Theorem: svex-select-part->subexp$inline-of-svex-select-fix-x

    (defthm svex-select-part->subexp$inline-of-svex-select-fix-x
      (equal (svex-select-part->subexp$inline (svex-select-fix x))
             (svex-select-part->subexp$inline x)))

    Theorem: svex-select-part->subexp$inline-svex-select-equiv-congruence-on-x

    (defthm
      svex-select-part->subexp$inline-svex-select-equiv-congruence-on-x
      (implies (svex-select-equiv x x-equiv)
               (equal (svex-select-part->subexp$inline x)
                      (svex-select-part->subexp$inline x-equiv)))
      :rule-classes :congruence)

    Theorem: svex-select-part->subexp-when-wrong-kind

    (defthm svex-select-part->subexp-when-wrong-kind
      (implies (not (equal (svex-select-kind x) :part))
               (equal (svex-select-part->subexp x)
                      (svex-select-fix nil))))