• 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
        • 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
    • Vwsim
    • Fgl
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Expand.lisp

Svtv-wires->lhses

Signature

(svtv-wires->lhses entries modidx moddb aliases) 
  → 
(mv errs in-entries)

Arguments

entries — Guard (true-list-listp entries).

modidx — Guard (natp modidx).

moddb — Guard (moddb-ok moddb).

Returns

in-entries — Type (svtv-lines-p in-entries).

Definitions and Theorems

Function: svtv-wires->lhses

(defun svtv-wires->lhses (entries modidx moddb aliases)
  (declare (xargs :stobjs (moddb aliases)))
  (declare (xargs :guard (and (true-list-listp entries)
                              (natp modidx)
                              (moddb-ok moddb))))
  (declare
       (xargs :guard (svtv-mod-alias-guard modidx moddb aliases)))
  (let ((__function__ 'svtv-wires->lhses))
    (declare (ignorable __function__))
    (b* (((when (atom entries)) (mv nil nil))
         (name (caar entries))
         ((mv errs lhs)
          (svtv-wire->lhs name modidx moddb aliases))
         (entrylist (llist-fix (cdar entries)))
         ((mv rest-errs rest)
          (svtv-wires->lhses (cdr entries)
                             modidx moddb aliases))
         ((unless (svtv-entrylist-p entrylist))
          (mv (cons (msg "Bad inentrylist: ~x0" entrylist)
                    (append-without-guard errs rest-errs))
              rest))
         (entry (make-svtv-line :lhs lhs
                                :entries entrylist)))
      (mv (append-without-guard errs rest-errs)
          (cons entry rest)))))

Theorem: svtv-lines-p-of-svtv-wires->lhses.in-entries

(defthm svtv-lines-p-of-svtv-wires->lhses.in-entries
  (b* (((mv ?errs ?in-entries)
        (svtv-wires->lhses entries modidx moddb aliases)))
    (svtv-lines-p in-entries))
  :rule-classes :rewrite)

Theorem: svtv-wires->lhses-of-true-list-list-fix-entries

(defthm svtv-wires->lhses-of-true-list-list-fix-entries
  (equal (svtv-wires->lhses (true-list-list-fix entries)
                            modidx moddb aliases)
         (svtv-wires->lhses entries modidx moddb aliases)))

Theorem: svtv-wires->lhses-true-list-list-equiv-congruence-on-entries

(defthm svtv-wires->lhses-true-list-list-equiv-congruence-on-entries
 (implies
     (true-list-list-equiv entries entries-equiv)
     (equal (svtv-wires->lhses entries modidx moddb aliases)
            (svtv-wires->lhses entries-equiv modidx moddb aliases)))
 :rule-classes :congruence)

Theorem: svtv-wires->lhses-of-nfix-modidx

(defthm svtv-wires->lhses-of-nfix-modidx
  (equal (svtv-wires->lhses entries (nfix modidx)
                            moddb aliases)
         (svtv-wires->lhses entries modidx moddb aliases)))

Theorem: svtv-wires->lhses-nat-equiv-congruence-on-modidx

(defthm svtv-wires->lhses-nat-equiv-congruence-on-modidx
 (implies
     (nat-equiv modidx modidx-equiv)
     (equal (svtv-wires->lhses entries modidx moddb aliases)
            (svtv-wires->lhses entries modidx-equiv moddb aliases)))
 :rule-classes :congruence)

Theorem: svtv-wires->lhses-of-moddb-fix-moddb

(defthm svtv-wires->lhses-of-moddb-fix-moddb
  (equal (svtv-wires->lhses entries modidx (moddb-fix moddb)
                            aliases)
         (svtv-wires->lhses entries modidx moddb aliases)))

Theorem: svtv-wires->lhses-moddb-equiv-congruence-on-moddb

(defthm svtv-wires->lhses-moddb-equiv-congruence-on-moddb
 (implies
     (moddb-equiv moddb moddb-equiv)
     (equal (svtv-wires->lhses entries modidx moddb aliases)
            (svtv-wires->lhses entries modidx moddb-equiv aliases)))
 :rule-classes :congruence)

Theorem: svtv-wires->lhses-of-lhslist-fix-aliases

(defthm svtv-wires->lhses-of-lhslist-fix-aliases
  (equal (svtv-wires->lhses entries
                            modidx moddb (lhslist-fix aliases))
         (svtv-wires->lhses entries modidx moddb aliases)))

Theorem: svtv-wires->lhses-lhslist-equiv-congruence-on-aliases

(defthm svtv-wires->lhses-lhslist-equiv-congruence-on-aliases
 (implies
     (lhslist-equiv aliases aliases-equiv)
     (equal (svtv-wires->lhses entries modidx moddb aliases)
            (svtv-wires->lhses entries modidx moddb aliases-equiv)))
 :rule-classes :congruence)