		Search-engine friendly clone of the ACL2 documentation.

Atj-java-abstract-syntax

Jclasses-to-jcbody-elements

Lift the composition of jcmember-class followed by jcbody-element-member to lists.

Signature
(jclasses-to-jcbody-elements classes) → cbody-elements
Arguments: classes — Guard (jclass-listp classes).
Returns: cbody-elements — Type (jcbody-element-listp cbody-elements).

Definitions and Theorems

Function: jclasses-to-jcbody-elements

(defun jclasses-to-jcbody-elements (classes)
 (declare (xargs :guard (jclass-listp classes)))
 (let ((__function__ 'jclasses-to-jcbody-elements))
  (declare (ignorable __function__))
  (cond
     ((endp classes) nil)
     (t (cons (jcbody-element-member (jcmember-class (car classes)))
              (jclasses-to-jcbody-elements (cdr classes)))))))

Theorem: jcbody-element-listp-of-jclasses-to-jcbody-elements

(defthm jcbody-element-listp-of-jclasses-to-jcbody-elements
  (b* ((cbody-elements (jclasses-to-jcbody-elements classes)))
    (jcbody-element-listp cbody-elements))
  :rule-classes :rewrite)