Pretty-print a list of import-level declarations.
(pprint-importdecl-list decls) → lines
Function:
(defun pprint-importdecl-list (decls) (declare (xargs :guard (importdecl-listp decls))) (let ((__function__ 'pprint-importdecl-list)) (declare (ignorable __function__)) (cond ((endp decls) nil) ((endp (cdr decls)) (list (pprint-importdecl (car decls)))) (t (cons (pprint-importdecl (car decls)) (append (list (pprint-line-blank)) (pprint-importdecl-list (cdr decls))))))))
Theorem:
(defthm msg-listp-of-pprint-importdecl-list (b* ((lines (pprint-importdecl-list decls))) (msg-listp lines)) :rule-classes :rewrite)