Pretty-print a list of input sections.
(pprint-input-section-list insecs) → lines
Function:
(defun pprint-input-section-list (insecs) (declare (xargs :guard (input-section-listp insecs))) (let ((__function__ 'pprint-input-section-list)) (declare (ignorable __function__)) (cond ((endp insecs) nil) (t (append (pprint-input-section (car insecs)) (pprint-input-section-list (cdr insecs)))))))
Theorem:
(defthm msg-listp-of-pprint-input-section-list (b* ((lines (pprint-input-section-list insecs))) (msg-listp lines)) :rule-classes :rewrite)