Add the
(declor-spec-list-make-static specs) → specs$
Function:
(defun declor-spec-list-make-static (specs) (declare (xargs :guard (decl-spec-listp specs))) (cons (decl-spec-stoclass (stor-spec-static)) (declor-spec-list-filter-out-linkage-specs specs)))
Theorem:
(defthm decl-spec-listp-of-declor-spec-list-make-static (b* ((specs$ (declor-spec-list-make-static specs))) (decl-spec-listp specs$)) :rule-classes :rewrite)
Theorem:
(defthm declor-spec-list-make-static-of-decl-spec-list-fix-specs (equal (declor-spec-list-make-static (decl-spec-list-fix specs)) (declor-spec-list-make-static specs)))
Theorem:
(defthm declor-spec-list-make-static-decl-spec-list-equiv-congruence-on-specs (implies (decl-spec-list-equiv specs specs-equiv) (equal (declor-spec-list-make-static specs) (declor-spec-list-make-static specs-equiv))) :rule-classes :congruence)