		Search-engine friendly clone of the ACL2 documentation.

Expr-tools

Vl-exprlist-to-plainarglist

Convert expressions into vl-plainarg-ps.

Signature
(vl-exprlist-to-plainarglist x &key dir atts) → ans
Arguments: x — list to convert.
Guard (vl-exprlist-p x).; dir — direction for each new plainarg.
Guard (vl-maybe-direction-p dir).; atts — attributes for each new plainarg.
Guard (vl-atts-p atts).
Returns: ans — Type (vl-plainarglist-p ans).

Definitions and Theorems

Function: vl-exprlist-to-plainarglist-fn

(defun vl-exprlist-to-plainarglist-fn (x dir atts)
  (declare (xargs :guard (and (vl-exprlist-p x)
                              (vl-maybe-direction-p dir)
                              (vl-atts-p atts))))
  (let ((__function__ 'vl-exprlist-to-plainarglist))
    (declare (ignorable __function__))
    (if (consp x)
        (cons (make-vl-plainarg :expr (vl-expr-fix (car x))
                                :dir dir
                                :atts atts)
              (vl-exprlist-to-plainarglist-fn (cdr x)
                                              dir atts))
      nil)))

Theorem: vl-plainarglist-p-of-vl-exprlist-to-plainarglist

(defthm vl-plainarglist-p-of-vl-exprlist-to-plainarglist
  (b* ((ans (vl-exprlist-to-plainarglist-fn x dir atts)))
    (vl-plainarglist-p ans))
  :rule-classes :rewrite)

Theorem: vl-exprlist-to-plainarglist-under-iff

(defthm vl-exprlist-to-plainarglist-under-iff
  (iff (vl-exprlist-to-plainarglist x
                                    :dir dir
                                    :atts atts)
       (consp x)))

Theorem: len-of-vl-exprlist-to-plainarglist

(defthm len-of-vl-exprlist-to-plainarglist
  (equal (len (vl-exprlist-to-plainarglist x
                                           :dir dir
                                           :atts atts))
         (len x)))

Theorem: vl-exprlist-to-plainarglist-fn-of-vl-exprlist-fix-x

(defthm vl-exprlist-to-plainarglist-fn-of-vl-exprlist-fix-x
  (equal (vl-exprlist-to-plainarglist-fn (vl-exprlist-fix x)
                                         dir atts)
         (vl-exprlist-to-plainarglist-fn x dir atts)))

Theorem: vl-exprlist-to-plainarglist-fn-vl-exprlist-equiv-congruence-on-x

(defthm
   vl-exprlist-to-plainarglist-fn-vl-exprlist-equiv-congruence-on-x
 (implies (vl-exprlist-equiv x x-equiv)
          (equal (vl-exprlist-to-plainarglist-fn x dir atts)
                 (vl-exprlist-to-plainarglist-fn x-equiv dir atts)))
 :rule-classes :congruence)

Theorem: vl-exprlist-to-plainarglist-fn-of-vl-maybe-direction-fix-dir

(defthm vl-exprlist-to-plainarglist-fn-of-vl-maybe-direction-fix-dir
 (equal
      (vl-exprlist-to-plainarglist-fn x (vl-maybe-direction-fix dir)
                                      atts)
      (vl-exprlist-to-plainarglist-fn x dir atts)))

Theorem: vl-exprlist-to-plainarglist-fn-vl-maybe-direction-equiv-congruence-on-dir

(defthm
 vl-exprlist-to-plainarglist-fn-vl-maybe-direction-equiv-congruence-on-dir
 (implies (vl-maybe-direction-equiv dir dir-equiv)
          (equal (vl-exprlist-to-plainarglist-fn x dir atts)
                 (vl-exprlist-to-plainarglist-fn x dir-equiv atts)))
 :rule-classes :congruence)

Theorem: vl-exprlist-to-plainarglist-fn-of-vl-atts-fix-atts

(defthm vl-exprlist-to-plainarglist-fn-of-vl-atts-fix-atts
  (equal (vl-exprlist-to-plainarglist-fn x dir (vl-atts-fix atts))
         (vl-exprlist-to-plainarglist-fn x dir atts)))

Theorem: vl-exprlist-to-plainarglist-fn-vl-atts-equiv-congruence-on-atts

(defthm
    vl-exprlist-to-plainarglist-fn-vl-atts-equiv-congruence-on-atts
 (implies (vl-atts-equiv atts atts-equiv)
          (equal (vl-exprlist-to-plainarglist-fn x dir atts)
                 (vl-exprlist-to-plainarglist-fn x dir atts-equiv)))
 :rule-classes :congruence)