(vl-fundecl-body-with-const-args x constargs) → body
Function:
(defun vl-fundecl-body-with-const-args (x constargs) (declare (xargs :guard (and (vl-fundecl-p x) (sv::maybe-4veclist-p constargs)))) (let ((__function__ 'vl-fundecl-body-with-const-args)) (declare (ignorable __function__)) (b* (((vl-fundecl x)) (paramdecls (vl-fundecl-paramdecls-for-const-args x.portdecls constargs))) (make-vl-blockstmt :blocktype :vl-beginend :stmts (list x.body) :paramdecls paramdecls))))
Theorem:
(defthm vl-stmt-p-of-vl-fundecl-body-with-const-args (b* ((body (vl-fundecl-body-with-const-args x constargs))) (vl-stmt-p body)) :rule-classes :rewrite)
Theorem:
(defthm vl-fundecl-body-with-const-args-of-vl-fundecl-fix-x (equal (vl-fundecl-body-with-const-args (vl-fundecl-fix x) constargs) (vl-fundecl-body-with-const-args x constargs)))
Theorem:
(defthm vl-fundecl-body-with-const-args-vl-fundecl-equiv-congruence-on-x (implies (vl-fundecl-equiv x x-equiv) (equal (vl-fundecl-body-with-const-args x constargs) (vl-fundecl-body-with-const-args x-equiv constargs))) :rule-classes :congruence)
Theorem:
(defthm vl-fundecl-body-with-const-args-of-maybe-4veclist-fix-constargs (equal (vl-fundecl-body-with-const-args x (sv::maybe-4veclist-fix constargs)) (vl-fundecl-body-with-const-args x constargs)))
Theorem:
(defthm vl-fundecl-body-with-const-args-maybe-4veclist-equiv-congruence-on-constargs (implies (sv::maybe-4veclist-equiv constargs constargs-equiv) (equal (vl-fundecl-body-with-const-args x constargs) (vl-fundecl-body-with-const-args x constargs-equiv))) :rule-classes :congruence)