Process the
Function:
(defun atj-process-java-class (java-class ctx state) (declare (xargs :stobjs (state))) (declare (xargs :guard (ctxp ctx))) (let ((__function__ 'atj-process-java-class)) (declare (ignorable __function__)) (b* (((er &) (ensure-string-or-nil$ java-class "The :JAVA-CLASS input" t nil)) ((unless (or (null java-class) (atj-string-ascii-java-identifier-p java-class))) (er-soft+ ctx t nil "The :JAVA-CLASS input ~x0 is not ~ NIL or a valid Java class name ~ consisting of only ASCII characters." java-class)) (name (or java-class *atj-default-java-class*))) (value name))))
Theorem:
(defthm return-type-of-atj-process-java-class.java-class$ (b* (((mv ?erp ?java-class$ acl2::?state) (atj-process-java-class java-class ctx state))) (implies (not erp) (stringp java-class$))) :rule-classes :rewrite)