Build an initial vl-delta-p for the module
(vl-starting-delta x) → delta
The new delta has an appropriate starting namefactory for the module, and is also seeded with the module's warnings. The other accumulators are all empty to begin with.
Function:
(defun vl-starting-delta (x) (declare (xargs :guard (vl-module-p x))) (let ((__function__ 'vl-starting-delta)) (declare (ignorable __function__)) (make-vl-delta :nf (vl-starting-namefactory x) :warnings (vl-module->warnings x) :vardecls nil :assigns nil :modinsts nil :addmods nil)))
Theorem:
(defthm vl-starting-delta-of-vl-module-fix-x (equal (vl-starting-delta (vl-module-fix x)) (vl-starting-delta x)))
Theorem:
(defthm vl-starting-delta-vl-module-equiv-congruence-on-x (implies (vl-module-equiv x x-equiv) (equal (vl-starting-delta x) (vl-starting-delta x-equiv))) :rule-classes :congruence)