(vl-atomicstmtlist-p x) recognizes lists where every element satisfies vl-atomicstmt-p.
(vl-atomicstmtlist-p x) → std::bool
This is an ordinary deflist. It is
"loose" in that it does not care whether
Function:
(defun vl-atomicstmtlist-p (x) (declare (xargs :guard (vl-stmtlist-p x))) (let ((__function__ 'vl-atomicstmtlist-p)) (declare (ignorable __function__)) (if (consp x) (and (vl-atomicstmt-p (car x)) (vl-atomicstmtlist-p (cdr x))) t)))
Theorem:
(defthm vl-atomicstmtlist-p-of-vl-stmtlist-fix-x (equal (vl-atomicstmtlist-p (vl-stmtlist-fix x)) (vl-atomicstmtlist-p x)))
Theorem:
(defthm vl-atomicstmtlist-p-vl-stmtlist-equiv-congruence-on-x (implies (vl-stmtlist-equiv x x-equiv) (equal (vl-atomicstmtlist-p x) (vl-atomicstmtlist-p x-equiv))) :rule-classes :congruence)