		Search-engine friendly clone of the ACL2 documentation.

Atj-shallow-code-generation

Atj-gen-shallow-mv-classes

Lift atj-gen-shallow-mv-class to lists.

Signature
(atj-gen-shallow-mv-classes typess) → classes
Arguments: typess — Guard (atj-type-list-listp typess).
Returns: classes — Type (and (jclass-listp classes) (equal (len classes) (len typess))).

Definitions and Theorems

Function: atj-gen-shallow-mv-classes-guard

(defun atj-gen-shallow-mv-classes-guard (typess)
  (declare (xargs :guard (atj-type-list-listp typess)))
  (let ((__function__ 'atj-gen-shallow-mv-classes-guard))
    (declare (ignorable __function__))
    (or (endp typess)
        (and (>= (len (car typess)) 2)
             (atj-gen-shallow-mv-classes-guard (cdr typess))))))

Theorem: booleanp-of-atj-gen-shallow-mv-classes-guard

(defthm booleanp-of-atj-gen-shallow-mv-classes-guard
  (b* ((yes/no (atj-gen-shallow-mv-classes-guard typess)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Function: atj-gen-shallow-mv-classes

(defun atj-gen-shallow-mv-classes (typess)
  (declare (xargs :guard (atj-type-list-listp typess)))
  (declare (xargs :guard (atj-gen-shallow-mv-classes-guard typess)))
  (let ((__function__ 'atj-gen-shallow-mv-classes))
    (declare (ignorable __function__))
    (cond ((endp typess) nil)
          (t (cons (atj-gen-shallow-mv-class (car typess))
                   (atj-gen-shallow-mv-classes (cdr typess)))))))

Theorem: return-type-of-atj-gen-shallow-mv-classes

(defthm return-type-of-atj-gen-shallow-mv-classes
  (b* ((classes (atj-gen-shallow-mv-classes typess)))
    (and (jclass-listp classes)
         (equal (len classes) (len typess))))
  :rule-classes :rewrite)