		Search-engine friendly clone of the ACL2 documentation.

Stmtrewrite

Vl-always-stmtrewrite

Signature
(vl-always-stmtrewrite x unroll-limit warnings) → (mv warnings new-x)
Arguments: x — Guard (vl-always-p x).; unroll-limit — Guard (natp unroll-limit).; warnings — Guard (vl-warninglist-p warnings).
Returns: warnings — Type (vl-warninglist-p warnings), given the guard.; new-x — Type (vl-always-p new-x), given the guard.

Definitions and Theorems

Function: vl-always-stmtrewrite

(defun vl-always-stmtrewrite (x unroll-limit warnings)
  (declare (xargs :guard (and (vl-always-p x)
                              (natp unroll-limit)
                              (vl-warninglist-p warnings))))
  (let ((__function__ 'vl-always-stmtrewrite))
    (declare (ignorable __function__))
    (b* (((mv warnings stmt)
          (vl-stmt-rewrite-top (vl-always->stmt x)
                               unroll-limit warnings))
         (x-prime (change-vl-always x :stmt stmt)))
      (mv warnings x-prime))))

Theorem: vl-warninglist-p-of-vl-always-stmtrewrite.warnings

(defthm vl-warninglist-p-of-vl-always-stmtrewrite.warnings
  (implies (and (force (vl-always-p x))
                (force (natp unroll-limit))
                (force (vl-warninglist-p warnings)))
           (b* (((mv ?warnings ?new-x)
                 (vl-always-stmtrewrite x unroll-limit warnings)))
             (vl-warninglist-p warnings)))
  :rule-classes :rewrite)

Theorem: vl-always-p-of-vl-always-stmtrewrite.new-x

(defthm vl-always-p-of-vl-always-stmtrewrite.new-x
  (implies (and (force (vl-always-p x))
                (force (natp unroll-limit))
                (force (vl-warninglist-p warnings)))
           (b* (((mv ?warnings ?new-x)
                 (vl-always-stmtrewrite x unroll-limit warnings)))
             (vl-always-p new-x)))
  :rule-classes :rewrite)