• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
    • Vwsim
    • Fgl
    • Vl
      • Syntax
      • Loader
      • Warnings
      • Getting-started
      • Utilities
      • Printer
      • Kit
      • Mlib
      • Transforms
        • Unparameterization
        • Elaborate
        • Addnames
        • Annotate
        • Clean-warnings
        • Eliminitial
          • Vl-modulelist-eliminitial
          • Vl-module-eliminitial
          • Vl-design-eliminitial
        • Custom-transform-hooks
        • Problem-modules
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Testing-utilities
  • Math

• Eliminitial

Vl-module-eliminitial

Signature

(vl-module-eliminitial x) → new-x

Arguments

x — Guard (vl-module-p x).

Returns

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

Definitions and Theorems

Function: vl-module-eliminitial

(defun
     vl-module-eliminitial (x)
     (declare (xargs :guard (vl-module-p x)))
     (let ((__function__ 'vl-module-eliminitial))
          (declare (ignorable __function__))
          (b* ((x (vl-module-fix x))
               ((when (vl-module->hands-offp x)) x)
               (genblob (vl-module->genblob x))
               ((mv warnings new-genblob)
                (vl-genblob-eliminitial genblob (vl-module->name x)
                                        (vl-module->warnings x)))
               (x-warn (change-vl-module x
                                         :warnings warnings)))
              (vl-genblob->module new-genblob x-warn))))

Theorem: vl-module-p-of-vl-module-eliminitial

(defthm vl-module-p-of-vl-module-eliminitial
        (b* ((new-x (vl-module-eliminitial x)))
            (vl-module-p new-x))
        :rule-classes :rewrite)

Theorem: vl-module-eliminitial-of-vl-module-fix-x

(defthm vl-module-eliminitial-of-vl-module-fix-x
        (equal (vl-module-eliminitial (vl-module-fix x))
               (vl-module-eliminitial x)))

Theorem: vl-module-eliminitial-vl-module-equiv-congruence-on-x

(defthm vl-module-eliminitial-vl-module-equiv-congruence-on-x
        (implies (vl-module-equiv x x-equiv)
                 (equal (vl-module-eliminitial x)
                        (vl-module-eliminitial x-equiv)))
        :rule-classes :congruence)