Generate a Java field for an ACL2 quoted character.
(atj-gen-shallow-char-field char) → field
This is a private static final field with an initializer, which constructs the character value.
Function:
(defun atj-gen-shallow-char-field (char) (declare (xargs :guard (characterp char))) (let ((__function__ 'atj-gen-shallow-char-field)) (declare (ignorable __function__)) (b* ((name (atj-gen-shallow-char-field-name char)) (init (atj-gen-char char t nil)) (type *aij-type-char*)) (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-char-field (b* ((field (atj-gen-shallow-char-field char))) (jfieldp field)) :rule-classes :rewrite)