Generate Java code to build a Java
Function:
(defun atj-gen-jbyte (byte) (declare (xargs :guard (sbyte8p byte))) (let ((__function__ 'atj-gen-jbyte)) (declare (ignorable __function__)) (jexpr-cast (jtype-byte) (atj-gen-jint byte))))
Theorem:
(defthm jexprp-of-atj-gen-jbyte (b* ((expr (atj-gen-jbyte byte))) (jexprp expr)) :rule-classes :rewrite)