(atj-gen-shallow-mv-classes-guard typess) → yes/no
Function:
(defun atj-gen-shallow-mv-classes-guard (typess) (declare (xargs :guard (atj-type-list-listp typess))) (let ((__function__ 'atj-gen-shallow-mv-classes-guard)) (declare (ignorable __function__)) (or (endp typess) (and (>= (len (car typess)) 2) (atj-gen-shallow-mv-classes-guard (cdr typess))))))
Theorem:
(defthm booleanp-of-atj-gen-shallow-mv-classes-guard (b* ((yes/no (atj-gen-shallow-mv-classes-guard typess))) (booleanp yes/no)) :rule-classes :rewrite)