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