		Search-engine friendly clone of the ACL2 documentation.

Bit-blasting

Svexlist-rewrite-fixpoint-memo

Signature
(svexlist-rewrite-fixpoint-memo x) → *
Arguments: x — Guard (svexlist-p x).

Definitions and Theorems

Function: svexlist-rewrite-fixpoint-memo

(defun svexlist-rewrite-fixpoint-memo (x)
  (declare (xargs :guard (svexlist-p x)))
  (let ((__function__ 'svexlist-rewrite-fixpoint-memo))
    (declare (ignorable __function__))
    (time$ (svexlist-rewrite-fixpoint x
                                      :verbosep t
                                      :count 2)
           :msg "; svex rewriting: ~st sec, ~sa bytes.~%")))

Theorem: svexlist-rewrite-fixpoint-memo-of-svexlist-fix-x

(defthm svexlist-rewrite-fixpoint-memo-of-svexlist-fix-x
  (equal (svexlist-rewrite-fixpoint-memo (svexlist-fix x))
         (svexlist-rewrite-fixpoint-memo x)))

Theorem: svexlist-rewrite-fixpoint-memo-svexlist-equiv-congruence-on-x

(defthm
      svexlist-rewrite-fixpoint-memo-svexlist-equiv-congruence-on-x
  (implies (svexlist-equiv x x-equiv)
           (equal (svexlist-rewrite-fixpoint-memo x)
                  (svexlist-rewrite-fixpoint-memo x-equiv)))
  :rule-classes :congruence)