• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
      • Warnings
      • Primitives
      • Use-set
      • Syntax
      • Getting-started
      • Utilities
      • Loader
      • Transforms
      • Lint
        • Vl-lintconfig-p
        • Lucid
        • Skip-detection
        • Vl-lintresult-p
        • Lint-warning-suppression
        • Condcheck
        • Selfassigns
        • Leftright-check
        • Dupeinst-check
        • Oddexpr-check
        • Remove-toohard
        • Qmarksize-check
        • Portcheck
        • Duplicate-detect
        • Vl-print-certain-warnings
        • Duperhs-check
        • *vl-lint-help*
        • Lint-stmt-rewrite
        • Drop-missing-submodules
          • Vl-modulelist-drop-missing-submodules
          • Vl-module-drop-missing-submodules
          • Vl-gather-names-of-missing-definitions
          • Vl-design-drop-missing-submodules
        • Check-case
        • Drop-user-submodules
        • Check-namespace
        • Vl-lint
      • Mlib
      • Server
      • Kit
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Vwsim
    • Fgl
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Drop-missing-submodules

Vl-module-drop-missing-submodules

Signature

(vl-module-drop-missing-submodules x ss) → new-x

Arguments

x — Module to rewrite.
    Guard (vl-module-p x).

ss — Guard (vl-scopestack-p ss).

Returns

new-x — Type (vl-module-p new-x).

Definitions and Theorems

Function: vl-module-drop-missing-submodules

(defun vl-module-drop-missing-submodules (x ss)
 (declare (xargs :guard (and (vl-module-p x)
                             (vl-scopestack-p ss))))
 (let ((__function__ 'vl-module-drop-missing-submodules))
  (declare (ignorable __function__))
  (b*
   (((vl-module x) (vl-module-fix x))
    (genblob (vl-module->genblob x))
    ((mv dropped-insts new-genblob)
     (vl-genblob-drop-missing-submodules genblob ss nil))
    (nbad (len dropped-insts))
    (missing-modnames
         (mergesort (vl-modinstlist->modnames dropped-insts)))
    (warnings
     (if (atom dropped-insts)
         x.warnings
      (fatal
       :type :vl-dropped-insts
       :msg
       "Deleting ~x0 instance~s1 of undefined ~
                                module~s2 ~&3. This may cause our analysis to ~
                                be flawed."
       :args (list nbad (if (eql nbad 1) "" "s")
                   (if (vl-plural-p missing-modnames)
                       "s"
                     "")
                   missing-modnames)
       :acc x.warnings)))
    (x-warn (change-vl-module x
                              :warnings warnings)))
   (vl-genblob->module new-genblob x-warn))))

Theorem: vl-module-p-of-vl-module-drop-missing-submodules

(defthm vl-module-p-of-vl-module-drop-missing-submodules
  (b* ((new-x (vl-module-drop-missing-submodules x ss)))
    (vl-module-p new-x))
  :rule-classes :rewrite)

Theorem: vl-module-drop-missing-submodules-of-vl-module-fix-x

(defthm vl-module-drop-missing-submodules-of-vl-module-fix-x
  (equal (vl-module-drop-missing-submodules (vl-module-fix x)
                                            ss)
         (vl-module-drop-missing-submodules x ss)))

Theorem: vl-module-drop-missing-submodules-vl-module-equiv-congruence-on-x

(defthm
  vl-module-drop-missing-submodules-vl-module-equiv-congruence-on-x
  (implies (vl-module-equiv x x-equiv)
           (equal (vl-module-drop-missing-submodules x ss)
                  (vl-module-drop-missing-submodules x-equiv ss)))
  :rule-classes :congruence)

Theorem: vl-module-drop-missing-submodules-of-vl-scopestack-fix-ss

(defthm vl-module-drop-missing-submodules-of-vl-scopestack-fix-ss
 (equal (vl-module-drop-missing-submodules x (vl-scopestack-fix ss))
        (vl-module-drop-missing-submodules x ss)))

Theorem: vl-module-drop-missing-submodules-vl-scopestack-equiv-congruence-on-ss

(defthm
 vl-module-drop-missing-submodules-vl-scopestack-equiv-congruence-on-ss
 (implies (vl-scopestack-equiv ss ss-equiv)
          (equal (vl-module-drop-missing-submodules x ss)
                 (vl-module-drop-missing-submodules x ss-equiv)))
 :rule-classes :congruence)