(fe-list-listp pfield::x p) recognizes lists where every element satisfies fe-listp.
(fe-list-listp pfield::x p) → std::bool
This is an ordinary std::deflist. It is
"strict" in that it requires
Function:
(defun fe-list-listp (pfield::x p) (declare (xargs :guard (primep p))) (let ((__function__ 'fe-list-listp)) (declare (ignorable __function__)) (if (consp pfield::x) (and (fe-listp (car pfield::x) p) (fe-list-listp (cdr pfield::x) p)) (null pfield::x))))
Theorem:
(defthm pfield::true-list-listp-when-fe-list-listp (implies (fe-list-listp x p) (true-list-listp x)))