Build a block consisting of a single Java expression (as an expression statement.
Function:
(defun jblock-expr (expr) (declare (xargs :guard (jexprp expr))) (let ((__function__ 'jblock-expr)) (declare (ignorable __function__)) (list (jstatem-expr expr))))
Theorem:
(defthm jblockp-of-jblock-expr (b* ((block (jblock-expr expr))) (jblockp block)) :rule-classes :rewrite)