• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Community
  • 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
        • Defsvtv
        • Process.lisp
        • Svtv-doc
        • Svtv-chase$
        • Svtv-versus-stv
        • Svtv-debug-fsm
        • Structure.lisp
        • Svtv-debug
        • Def-pipeline-thm
        • Expand.lisp
          • Svtv-parse-path-indices
          • Svtv-extend-entrylist
          • Svtv-parse-path/select-aux
          • Svtv-fsm-add-names
          • Svtv-1wire->lhs
          • Svtv-wires->lhses
          • Svtv-concat->lhs
          • Svtv-wire->lhs!
          • Svtv-lines->overrides
          • Svtv-wire->lhs
          • Svtv-mod-alias-guard
          • Svtv-fsm-mod-alias-guard
          • Svtv-parse-path/select
          • Svtv-expand-lines
          • Svtv-max-length
          • Msg-list
        • 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
    • Fgl
    • Vwsim
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Expand.lisp

Svtv-mod-alias-guard

Signature

(svtv-mod-alias-guard modidx moddb aliases) → *

Arguments

modidx — Guard (natp modidx).

moddb — Guard (moddb-ok moddb).

Definitions and Theorems

Function: svtv-mod-alias-guard

(defun svtv-mod-alias-guard (modidx moddb aliases)
 (declare (xargs :stobjs (moddb aliases)))
 (declare (xargs :guard (and (natp modidx) (moddb-ok moddb))))
 (let ((__function__ 'svtv-mod-alias-guard))
  (declare (ignorable __function__))
  (flet
   ((fn (modidx moddb aliases)
        (and (< (lnfix modidx)
                (lnfix (moddb->nmods moddb)))
             (<= (stobj-let ((elab-mod (moddb->modsi modidx moddb)))
                            (nwires)
                            (elab-mod->totalwires elab-mod)
                            nwires)
                 (aliass-length aliases)))))
   (mbe :logic (non-exec (let ((moddb (moddb-fix moddb)))
                           (fn modidx moddb aliases)))
        :exec (fn modidx moddb aliases)))))

Theorem: svtv-mod-alias-guard-of-nfix-modidx

(defthm svtv-mod-alias-guard-of-nfix-modidx
  (equal (svtv-mod-alias-guard (nfix modidx)
                               moddb aliases)
         (svtv-mod-alias-guard modidx moddb aliases)))

Theorem: svtv-mod-alias-guard-nat-equiv-congruence-on-modidx

(defthm svtv-mod-alias-guard-nat-equiv-congruence-on-modidx
 (implies (nat-equiv modidx modidx-equiv)
          (equal (svtv-mod-alias-guard modidx moddb aliases)
                 (svtv-mod-alias-guard modidx-equiv moddb aliases)))
 :rule-classes :congruence)

Theorem: svtv-mod-alias-guard-of-moddb-fix-moddb

(defthm svtv-mod-alias-guard-of-moddb-fix-moddb
  (equal (svtv-mod-alias-guard modidx (moddb-fix moddb)
                               aliases)
         (svtv-mod-alias-guard modidx moddb aliases)))

Theorem: svtv-mod-alias-guard-moddb-equiv-congruence-on-moddb

(defthm svtv-mod-alias-guard-moddb-equiv-congruence-on-moddb
 (implies (moddb-equiv moddb moddb-equiv)
          (equal (svtv-mod-alias-guard modidx moddb aliases)
                 (svtv-mod-alias-guard modidx moddb-equiv aliases)))
 :rule-classes :congruence)

Theorem: svtv-mod-alias-guard-of-lhslist-fix-aliases

(defthm svtv-mod-alias-guard-of-lhslist-fix-aliases
  (equal (svtv-mod-alias-guard modidx moddb (lhslist-fix aliases))
         (svtv-mod-alias-guard modidx moddb aliases)))

Theorem: svtv-mod-alias-guard-lhslist-equiv-congruence-on-aliases

(defthm svtv-mod-alias-guard-lhslist-equiv-congruence-on-aliases
 (implies (lhslist-equiv aliases aliases-equiv)
          (equal (svtv-mod-alias-guard modidx moddb aliases)
                 (svtv-mod-alias-guard modidx moddb aliases-equiv)))
 :rule-classes :congruence)