• Top
  • Documentation
  • Books
  • 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
          • Elabindex
          • Vl-override-parameter
          • Vl-genblob-elaborate
          • Vl-modelement-elaborate
          • Vl-design-elaborate-aux
          • Vl-package-elaborate-aux
          • Vl-taskdecl-elaborate
          • Vl-clkdecl-elaborate
          • Vl-defaultdisablelist-elaborate
          • Vl-modport-portlist-elaborate
          • Vl-modinst-elaborate-aux
          • Vl-maybe-parse-temps-elaborate
          • Vl-ansi-portdecllist-elaborate
          • Vl-ansi-portdecl-elaborate
          • Vl-parse-temps-elaborate
          • Vl-dpiimportlist-elaborate
          • Vl-clkassignlist-elaborate
          • Vl-cassertionlist-elaborate
          • Vl-assertionlist-elaborate
          • Vl-taskdecllist-elaborate
          • Vl-sequencelist-elaborate
          • Vl-propportlist-elaborate
          • Vl-propertylist-elaborate
          • Vl-plainarglist-elaborate
          • Vl-namedarglist-elaborate
          • Vl-maybe-clkskew-elaborate
          • Vl-gclkdecllist-elaborate
          • Vl-gateinstlist-elaborate
          • Vl-elabtasklist-elaborate
          • Vl-defaultdisable-elaborate
          • Vl-sequence-elaborate
          • Vl-property-elaborate
          • Vl-modportlist-elaborate
          • Vl-modport-port-elaborate
          • Vl-modinstlist-elaborate
          • Vl-letdecllist-elaborate
          • Vl-interfaceport-elaborate
          • Vl-initiallist-elaborate
          • Vl-gateinst-elaborate
          • Vl-fundecllist-elaborate
          • Vl-clkdecllist-elaborate
          • Vl-assignlist-elaborate
          • Vl-assign-elaborate-aux
          • Vl-arguments-elaborate
          • Vl-alwayslist-elaborate
          • Vl-regularport-elaborate
          • Vl-portlist-elaborate
          • Vl-finallist-elaborate
          • Vl-dpiimport-elaborate
          • Vl-clkassign-elaborate
          • Vl-bindlist-elaborate
          • Vl-aliaslist-elaborate
          • Vl-warn-about-negative-indices
          • Vl-udplist-elaborate
          • Vl-propport-elaborate
          • Vl-modinst-elaborate
          • Vl-udp-elaborate
          • Vl-port-elaborate
          • Vl-plainarg-elaborate
          • Vl-namedarg-elaborate
          • Vl-modport-elaborate
          • Vl-gclkdecl-elaborate
          • Vl-elabtask-elaborate
          • Vl-clkskew-elaborate
          • Vl-assign-elaborate
          • Vl-always-elaborate-aux
          • Vl-always-elaborate
          • Vl-alias-elaborate
          • Vl-initial-elaborate
          • Vl-bind-elaborate
          • Vl-final-elaborate
          • Vl-fundecl-paramdecls-for-const-args
          • Vl-fundecl-body-with-const-args
          • Vl-exprlist-args-to-4vec-consts
          • Sv::svex-constval
        • Addnames
        • Annotate
        • Clean-warnings
        • Eliminitial
        • Custom-transform-hooks
        • Problem-modules
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Elaborate

Vl-fundecl-paramdecls-for-const-args

Signature

(vl-fundecl-paramdecls-for-const-args x constargs) → params

Arguments

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

constargs — Guard (sv::maybe-4veclist-p constargs).

Returns

params — Type (vl-paramdecllist-p params).

Definitions and Theorems

Function: vl-fundecl-paramdecls-for-const-args

(defun vl-fundecl-paramdecls-for-const-args (x constargs)
 (declare (xargs :guard (and (vl-portdecllist-p x)
                             (sv::maybe-4veclist-p constargs))))
 (let ((__function__ 'vl-fundecl-paramdecls-for-const-args))
  (declare (ignorable __function__))
  (b* (((when (atom x)) nil)
       ((unless (consp constargs)) nil)
       ((unless (car constargs))
        (vl-fundecl-paramdecls-for-const-args (cdr x)
                                              (cdr constargs)))
       ((vl-portdecl x1) (car x)))
   (cons
    (make-vl-paramdecl
     :name x1.name
     :type
     (make-vl-explicitvalueparam
      :type x1.type
      :default
      (make-vl-literal
       :val
       (vl-4vec-to-value
        (car constargs)
        (+
         1
         (max (integer-length (sv::4vec->upper (car constargs)))
              (integer-length (sv::4vec->lower (car constargs)))))))
      :final-value (car constargs))
     :loc *vl-fakeloc*
     :localp t)
    (vl-fundecl-paramdecls-for-const-args (cdr x)
                                          (cdr constargs))))))

Theorem: vl-paramdecllist-p-of-vl-fundecl-paramdecls-for-const-args

(defthm vl-paramdecllist-p-of-vl-fundecl-paramdecls-for-const-args
  (b* ((params (vl-fundecl-paramdecls-for-const-args x constargs)))
    (vl-paramdecllist-p params))
  :rule-classes :rewrite)

Theorem: vl-fundecl-paramdecls-for-const-args-of-vl-portdecllist-fix-x

(defthm
      vl-fundecl-paramdecls-for-const-args-of-vl-portdecllist-fix-x
  (equal
       (vl-fundecl-paramdecls-for-const-args (vl-portdecllist-fix x)
                                             constargs)
       (vl-fundecl-paramdecls-for-const-args x constargs)))

Theorem: vl-fundecl-paramdecls-for-const-args-vl-portdecllist-equiv-congruence-on-x

(defthm
 vl-fundecl-paramdecls-for-const-args-vl-portdecllist-equiv-congruence-on-x
 (implies
   (vl-portdecllist-equiv x x-equiv)
   (equal (vl-fundecl-paramdecls-for-const-args x constargs)
          (vl-fundecl-paramdecls-for-const-args x-equiv constargs)))
 :rule-classes :congruence)

Theorem: vl-fundecl-paramdecls-for-const-args-of-maybe-4veclist-fix-constargs

(defthm
 vl-fundecl-paramdecls-for-const-args-of-maybe-4veclist-fix-constargs
 (equal (vl-fundecl-paramdecls-for-const-args
             x (sv::maybe-4veclist-fix constargs))
        (vl-fundecl-paramdecls-for-const-args x constargs)))

Theorem: vl-fundecl-paramdecls-for-const-args-maybe-4veclist-equiv-congruence-on-constargs

(defthm
 vl-fundecl-paramdecls-for-const-args-maybe-4veclist-equiv-congruence-on-constargs
 (implies
   (sv::maybe-4veclist-equiv constargs constargs-equiv)
   (equal (vl-fundecl-paramdecls-for-const-args x constargs)
          (vl-fundecl-paramdecls-for-const-args x constargs-equiv)))
 :rule-classes :congruence)