Recognizer for tmp-occ-alist.
(tmp-occ-alist-p x) → *
Function:
(defun tmp-occ-alist-p (x) (declare (xargs :guard t)) (let ((acl2::__function__ 'tmp-occ-alist-p)) (declare (ignorable acl2::__function__)) (if (atom x) (eq x nil) (and (consp (car x)) (occ-name-p (caar x)) (tmp-occ-p (cdar x)) (tmp-occ-alist-p (cdr x))))))
Theorem:
(defthm tmp-occ-alist-p-of-butlast (implies (tmp-occ-alist-p (double-rewrite acl2::x)) (tmp-occ-alist-p (butlast acl2::x acl2::n))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-append (equal (tmp-occ-alist-p (append acl2::a acl2::b)) (and (tmp-occ-alist-p (list-fix acl2::a)) (tmp-occ-alist-p acl2::b))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-repeat (iff (tmp-occ-alist-p (repeat acl2::n acl2::x)) (or (and (consp acl2::x) (occ-name-p (car acl2::x)) (tmp-occ-p (cdr acl2::x))) (zp acl2::n))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-rev (equal (tmp-occ-alist-p (rev acl2::x)) (tmp-occ-alist-p (list-fix acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-list-fix (implies (tmp-occ-alist-p acl2::x) (tmp-occ-alist-p (list-fix acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm true-listp-when-tmp-occ-alist-p-compound-recognizer (implies (tmp-occ-alist-p acl2::x) (true-listp acl2::x)) :rule-classes :compound-recognizer)
Theorem:
(defthm tmp-occ-alist-p-when-not-consp (implies (not (consp acl2::x)) (equal (tmp-occ-alist-p acl2::x) (not acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-cdr-when-tmp-occ-alist-p (implies (tmp-occ-alist-p (double-rewrite acl2::x)) (tmp-occ-alist-p (cdr acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-cons (equal (tmp-occ-alist-p (cons acl2::a acl2::x)) (and (and (consp acl2::a) (occ-name-p (car acl2::a)) (tmp-occ-p (cdr acl2::a))) (tmp-occ-alist-p acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-remove-assoc (implies (tmp-occ-alist-p acl2::x) (tmp-occ-alist-p (remove-assoc-equal acl2::name acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-put-assoc (implies (and (tmp-occ-alist-p acl2::x)) (iff (tmp-occ-alist-p (put-assoc-equal acl2::name acl2::val acl2::x)) (and (occ-name-p acl2::name) (tmp-occ-p acl2::val)))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-fast-alist-clean (implies (tmp-occ-alist-p acl2::x) (tmp-occ-alist-p (fast-alist-clean acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-hons-shrink-alist (implies (and (tmp-occ-alist-p acl2::x) (tmp-occ-alist-p acl2::y)) (tmp-occ-alist-p (hons-shrink-alist acl2::x acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-alist-p-of-hons-acons (equal (tmp-occ-alist-p (hons-acons acl2::a acl2::n acl2::x)) (and (occ-name-p acl2::a) (tmp-occ-p acl2::n) (tmp-occ-alist-p acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm tmp-occ-p-of-cdr-of-hons-assoc-equal-when-tmp-occ-alist-p (implies (tmp-occ-alist-p acl2::x) (iff (tmp-occ-p (cdr (hons-assoc-equal acl2::k acl2::x))) (or (hons-assoc-equal acl2::k acl2::x) (tmp-occ-p nil)))) :rule-classes ((:rewrite)))
Theorem:
(defthm alistp-when-tmp-occ-alist-p-rewrite (implies (tmp-occ-alist-p acl2::x) (alistp acl2::x)) :rule-classes ((:rewrite)))
Theorem:
(defthm alistp-when-tmp-occ-alist-p (implies (tmp-occ-alist-p acl2::x) (alistp acl2::x)) :rule-classes :tau-system)
Theorem:
(defthm tmp-occ-p-of-cdar-when-tmp-occ-alist-p (implies (tmp-occ-alist-p acl2::x) (iff (tmp-occ-p (cdar acl2::x)) (or (consp acl2::x) (tmp-occ-p nil)))) :rule-classes ((:rewrite)))
Theorem:
(defthm occ-name-p-of-caar-when-tmp-occ-alist-p (implies (tmp-occ-alist-p acl2::x) (iff (occ-name-p (caar acl2::x)) (or (consp acl2::x) (occ-name-p nil)))) :rule-classes ((:rewrite)))