Generate the static initializer of the main Java class.
(atj-gen-static-initializer java-class$) → initializer
This calls the
Function:
(defun atj-gen-static-initializer (java-class$) (declare (xargs :guard (stringp java-class$))) (let ((__function__ 'atj-gen-static-initializer)) (declare (ignorable __function__)) (make-jcinitializer :static? t :code (jblock-smethod (jtype-class (str::cat java-class$ "Environment")) "build" nil))))
Theorem:
(defthm jcinitializerp-of-atj-gen-static-initializer (b* ((initializer (atj-gen-static-initializer java-class$))) (jcinitializerp initializer)) :rule-classes :rewrite)