(vl-atomify-assignpairs x) → *
Function:
(defun vl-atomify-assignpairs (x) (declare (xargs :guard (and (alistp x) (vl-idtoken-list-p (strip-cars x)) (vl-exprlist-p (strip-cdrs x))))) (let ((__function__ 'vl-atomify-assignpairs)) (declare (ignorable __function__)) (if (atom x) nil (cons (cons (vl-idexpr (vl-idtoken->name (caar x))) (cdar x)) (vl-atomify-assignpairs (cdr x))))))
Theorem:
(defthm alistp-of-vl-atomify-assignpairs (alistp (vl-atomify-assignpairs x)))
Theorem:
(defthm vl-exprlist-p-of-strip-cars-of-vl-atomify-assignpairs (implies (force (vl-idtoken-list-p (strip-cars x))) (vl-exprlist-p (strip-cars (vl-atomify-assignpairs x)))))
Theorem:
(defthm vl-exprlist-p-of-strip-cdrs-of-vl-atomify-assignpairs (implies (force (vl-exprlist-p (strip-cdrs x))) (vl-exprlist-p (strip-cdrs (vl-atomify-assignpairs x)))))