		Search-engine friendly clone of the ACL2 documentation.

Atj-java-abstract-syntax

Jblock-asg

Build a block consisting of a single Java assignment.

Signature
(jblock-asg left right) → block
Arguments: left — Guard (jexprp left).; right — Guard (jexprp right).
Returns: block — Type (jblockp block).

Definitions and Theorems

Function: jblock-asg

(defun jblock-asg (left right)
  (declare (xargs :guard (and (jexprp left) (jexprp right))))
  (let ((__function__ 'jblock-asg))
    (declare (ignorable __function__))
    (jblock-expr (jexpr-binary (jbinop-asg)
                               left right))))

Theorem: jblockp-of-jblock-asg

(defthm jblockp-of-jblock-asg
  (b* ((block (jblock-asg left right)))
    (jblockp block))
  :rule-classes :rewrite)