Function:
(defun charset-char-regex (x) (declare (xargs :guard t)) (let ((__function__ 'charset-char-regex)) (declare (ignorable __function__)) (cdr (assoc x *charset-table*))))
Theorem:
(defthm return-type-of-charset-char-regex (b* ((pat (charset-char-regex x))) (implies pat (regex-p pat))) :rule-classes :rewrite)