Generate a Java field for an ACL2 quoted string.
This is a private static final field with an initializer, which constructs the string value.
Function:
(defun atj-gen-shallow-string-field (string) (declare (xargs :guard (stringp string))) (let ((__function__ 'atj-gen-shallow-string-field)) (declare (ignorable __function__)) (b* ((name (atj-gen-shallow-string-field-name string)) (init (atj-gen-string string t nil)) (type *aij-type-string*)) (make-jfield :access (jaccess-private) :static? t :final? t :transient? nil :volatile? nil :type type :name name :init? init))))
Theorem:
(defthm jfieldp-of-atj-gen-shallow-string-field (b* ((field (atj-gen-shallow-string-field string))) (jfieldp field)) :rule-classes :rewrite)