• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
      • Svex-stvs
        • Svtv-data
        • Defsvtv$
        • Svtv-run
        • Defsvtv-phasewise
        • Svtv
        • Svtv-spec
          • Svtv-spec-run
          • Svtv-spec-fix
          • Make-svtv-spec
          • Svtv-spec-p
          • Svtv-spec-equiv
          • Svtv-spec->override-test-alists
          • Svtv-spec->override-val-alists
          • Svtv-spec->cycle-phases
          • Change-svtv-spec
          • Svtv-spec->namemap
          • Svtv-spec->initst-alist
          • Svtv-spec->in-alists
          • Svtv-spec->probes
          • Svtv-spec->fsm
        • Defsvtv
        • Process.lisp
        • Svtv-doc
        • Svtv-chase$
        • Svtv-versus-stv
        • Svtv-debug-fsm
        • Structure.lisp
        • Svtv-debug
        • Def-pipeline-thm
        • Expand.lisp
        • Def-cycle-thm
        • Svtv-utilities
        • Svtv-debug$
        • Defsvtv$-phasewise
      • Svex-decomposition-methodology
      • Sv-versus-esim
      • Svex-decomp
      • Svex-compose-dfs
      • Svex-compilation
      • Moddb
      • Svmods
      • Svstmt
      • Sv-tutorial
      • Expressions
      • Symbolic-test-vector
      • Vl-to-svex
    • Vwsim
    • Fgl
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Svtv-spec

Svtv-spec->cycle-phases

Get the cycle-phases field from a svtv-spec.

Signature

(svtv-spec->cycle-phases x) → cycle-phases

Arguments

x — Guard (svtv-spec-p x).

Returns

cycle-phases — Type (svtv-cyclephaselist-p cycle-phases).

This is an ordinary field accessor created by defprod.

Definitions and Theorems

Function: svtv-spec->cycle-phases$inline

(defun svtv-spec->cycle-phases$inline (x)
  (declare (xargs :guard (svtv-spec-p x)))
  (declare (xargs :guard t))
  (let ((__function__ 'svtv-spec->cycle-phases))
    (declare (ignorable __function__))
    (mbe :logic
         (b* ((x (and t x)))
           (svtv-cyclephaselist-fix (cdr (std::da-nth 1 x))))
         :exec (cdr (std::da-nth 1 x)))))

Theorem: svtv-cyclephaselist-p-of-svtv-spec->cycle-phases

(defthm svtv-cyclephaselist-p-of-svtv-spec->cycle-phases
  (b* ((cycle-phases (svtv-spec->cycle-phases$inline x)))
    (svtv-cyclephaselist-p cycle-phases))
  :rule-classes :rewrite)

Theorem: svtv-spec->cycle-phases$inline-of-svtv-spec-fix-x

(defthm svtv-spec->cycle-phases$inline-of-svtv-spec-fix-x
  (equal (svtv-spec->cycle-phases$inline (svtv-spec-fix x))
         (svtv-spec->cycle-phases$inline x)))

Theorem: svtv-spec->cycle-phases$inline-svtv-spec-equiv-congruence-on-x

(defthm
     svtv-spec->cycle-phases$inline-svtv-spec-equiv-congruence-on-x
  (implies (svtv-spec-equiv x x-equiv)
           (equal (svtv-spec->cycle-phases$inline x)
                  (svtv-spec->cycle-phases$inline x-equiv)))
  :rule-classes :congruence)