		Search-engine friendly clone of the ACL2 documentation.

Atj-java-abstract-syntax

Jblock-if

Build a block consisting of a single Java if statement.

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

Definitions and Theorems

Function: jblock-if

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

Theorem: jblockp-of-jblock-if

(defthm jblockp-of-jblock-if
  (b* ((block (jblock-if test then)))
    (jblockp block))
  :rule-classes :rewrite)