(ident-map strings) → idents
Function:
(defun ident-map (strings) (declare (xargs :guard (string-listp strings))) (let ((__function__ 'ident-map)) (declare (ignorable __function__)) (if (endp strings) nil (cons (ident (first strings)) (ident-map (rest strings))))))
Theorem:
(defthm ident-listp-of-ident-map (b* ((idents (ident-map strings))) (ident-listp idents)) :rule-classes :rewrite)