		Search-engine friendly clone of the ACL2 documentation.

Atj-java-abstract-syntax

Jblock-while

Build a block consisting of a single Java while statement.

Signature
(jblock-while test body) → block
Arguments: test — Guard (jexprp test).; body — Guard (jblockp body).
Returns: block — Type (jblockp block).

Definitions and Theorems

Function: jblock-while

(defun jblock-while (test body)
  (declare (xargs :guard (and (jexprp test) (jblockp body))))
  (let ((__function__ 'jblock-while))
    (declare (ignorable __function__))
    (list (jstatem-while test body))))

Theorem: jblockp-of-jblock-while

(defthm jblockp-of-jblock-while
  (b* ((block (jblock-while test body)))
    (jblockp block))
  :rule-classes :rewrite)