Check if a list of storage class specifiers
has the form
(stor-spec-list-extern-p storspecs) → yes/no
Function:
(defun stor-spec-list-extern-p (storspecs) (declare (xargs :guard (stor-spec-listp storspecs))) (equal (stor-spec-list-fix storspecs) (list (stor-spec-extern))))
Theorem:
(defthm booleanp-of-stor-spec-list-extern-p (b* ((yes/no (stor-spec-list-extern-p storspecs))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm stor-spec-list-extern-p-of-stor-spec-list-fix-storspecs (equal (stor-spec-list-extern-p (stor-spec-list-fix storspecs)) (stor-spec-list-extern-p storspecs)))
Theorem:
(defthm stor-spec-list-extern-p-stor-spec-list-equiv-congruence-on-storspecs (implies (stor-spec-list-equiv storspecs storspecs-equiv) (equal (stor-spec-list-extern-p storspecs) (stor-spec-list-extern-p storspecs-equiv))) :rule-classes :congruence)