(vl-edgesynth-edge->name x) → name
Function:
(defun vl-edgesynth-edge->name (x) (declare (xargs :guard (vl-edgesynth-edge-p x))) (let ((__function__ 'vl-edgesynth-edge->name)) (declare (ignorable __function__)) (vl-idexpr->name (vl-evatom->expr x))))
Theorem:
(defthm stringp-of-vl-edgesynth-edge->name (b* ((name (vl-edgesynth-edge->name x))) (stringp name)) :rule-classes :type-prescription)