Get a section-info-p in
(get-section-info name section-info-list) → section-info
Function:
(defun get-section-info (name section-info-list) (declare (xargs :guard (and (stringp name) (section-info-list-p section-info-list)))) (let ((__function__ 'get-section-info)) (declare (ignorable __function__)) (get-section-info1 name section-info-list (section-names section-info-list))))
Theorem:
(defthm section-info-p-of-get-section-info (implies (section-info-list-p section-info-list) (b* ((section-info (get-section-info name section-info-list))) (section-info-p section-info))) :rule-classes :rewrite)