Recognize true lists of instantiations.
(funvar-inst-listp insts wrld) → yes/no
Function:
(defun funvar-inst-listp (insts wrld) (declare (xargs :guard (plist-worldp wrld))) (let ((__function__ 'funvar-inst-listp)) (declare (ignorable __function__)) (if (atom insts) (null insts) (and (funvar-instp (car insts) wrld) (funvar-inst-listp (cdr insts) wrld)))))
Theorem:
(defthm booleanp-of-funvar-inst-listp (b* ((yes/no (funvar-inst-listp insts wrld))) (booleanp yes/no)) :rule-classes :rewrite)