(vl-edgesynth-edge-p x) → *
Function:
(defun vl-edgesynth-edge-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-edgesynth-edge-p)) (declare (ignorable __function__)) (and (vl-evatom-p x) (b* (((vl-evatom x) x)) (and (or (eq x.type :vl-posedge) (eq x.type :vl-negedge)) (vl-idexpr-p x.expr) (vl-expr->finaltype x.expr) (equal (vl-expr->finalwidth x.expr) 1))))))