(vl-hidtrace-to-path x path) → new-path
Function:
(defun vl-hidtrace-to-path (x path) (declare (xargs :guard (and (vl-hidtrace-p x) (or (not path) (sv::path-p path))))) (declare (xargs :guard (and (consp x) (vl-hidtrace-resolved-p x)))) (let ((__function__ 'vl-hidtrace-to-path)) (declare (ignorable __function__)) (if path (vl-hidtrace-add-to-path x path) (vl-hidtrace-add-to-path (cdr x) (sv::make-path-wire :name (vl-hidstep->name (car x)))))))
Theorem:
(defthm path-p-of-vl-hidtrace-to-path (b* ((new-path (vl-hidtrace-to-path x path))) (sv::path-p new-path)) :rule-classes :rewrite)
Theorem:
(defthm vl-hidtrace-to-path-of-vl-hidtrace-fix-x (equal (vl-hidtrace-to-path (vl-hidtrace-fix x) path) (vl-hidtrace-to-path x path)))
Theorem:
(defthm vl-hidtrace-to-path-vl-hidtrace-equiv-congruence-on-x (implies (vl-hidtrace-equiv x x-equiv) (equal (vl-hidtrace-to-path x path) (vl-hidtrace-to-path x-equiv path))) :rule-classes :congruence)