Recognize alists from positive integers to isomorphic mapping records.
This is an ordinary std::defalist.
Function:
(defun isodata-pos-isomap-alistp (x) (declare (xargs :guard t)) (if (consp x) (and (consp (car x)) (posp (caar x)) (isodata-isomapp (cdar x)) (isodata-pos-isomap-alistp (cdr x))) (null x)))
Function:
(defun isodata-pos-isomap-alistp (x) (declare (xargs :guard t)) (if (consp x) (and (consp (car x)) (posp (caar x)) (isodata-isomapp (cdar x)) (isodata-pos-isomap-alistp (cdr x))) (null x)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-revappend (equal (isodata-pos-isomap-alistp (revappend acl2::x acl2::y)) (and (isodata-pos-isomap-alistp (list-fix acl2::x)) (isodata-pos-isomap-alistp acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-remove (implies (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp (remove acl2::a acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-last (implies (isodata-pos-isomap-alistp (double-rewrite acl2::x)) (isodata-pos-isomap-alistp (last acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-nthcdr (implies (isodata-pos-isomap-alistp (double-rewrite acl2::x)) (isodata-pos-isomap-alistp (nthcdr acl2::n acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-butlast (implies (isodata-pos-isomap-alistp (double-rewrite acl2::x)) (isodata-pos-isomap-alistp (butlast acl2::x acl2::n))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-update-nth (implies (isodata-pos-isomap-alistp (double-rewrite acl2::x)) (iff (isodata-pos-isomap-alistp (update-nth acl2::n acl2::y acl2::x)) (and (and (consp acl2::y) (posp (car acl2::y)) (isodata-isomapp (cdr acl2::y))) (or (<= (nfix acl2::n) (len acl2::x)) (and (consp nil) (posp (car nil)) (isodata-isomapp (cdr nil))))))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-repeat (iff (isodata-pos-isomap-alistp (repeat acl2::n acl2::x)) (or (and (consp acl2::x) (posp (car acl2::x)) (isodata-isomapp (cdr acl2::x))) (zp acl2::n))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-take (implies (isodata-pos-isomap-alistp (double-rewrite acl2::x)) (iff (isodata-pos-isomap-alistp (take acl2::n acl2::x)) (or (and (consp nil) (posp (car nil)) (isodata-isomapp (cdr nil))) (<= (nfix acl2::n) (len acl2::x))))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-union-equal (equal (isodata-pos-isomap-alistp (union-equal acl2::x acl2::y)) (and (isodata-pos-isomap-alistp (list-fix acl2::x)) (isodata-pos-isomap-alistp (double-rewrite acl2::y)))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-intersection-equal-2 (implies (isodata-pos-isomap-alistp (double-rewrite acl2::y)) (isodata-pos-isomap-alistp (intersection-equal acl2::x acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-intersection-equal-1 (implies (isodata-pos-isomap-alistp (double-rewrite acl2::x)) (isodata-pos-isomap-alistp (intersection-equal acl2::x acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-set-difference-equal (implies (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp (set-difference-equal acl2::x acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-when-subsetp-equal (and (implies (and (subsetp-equal acl2::x acl2::y) (isodata-pos-isomap-alistp acl2::y)) (equal (isodata-pos-isomap-alistp acl2::x) (true-listp acl2::x))) (implies (and (isodata-pos-isomap-alistp acl2::y) (subsetp-equal acl2::x acl2::y)) (equal (isodata-pos-isomap-alistp acl2::x) (true-listp acl2::x)))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-rcons (iff (isodata-pos-isomap-alistp (rcons acl2::a acl2::x)) (and (and (consp acl2::a) (posp (car acl2::a)) (isodata-isomapp (cdr acl2::a))) (isodata-pos-isomap-alistp (list-fix acl2::x)))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-append (equal (isodata-pos-isomap-alistp (append acl2::a acl2::b)) (and (isodata-pos-isomap-alistp (list-fix acl2::a)) (isodata-pos-isomap-alistp acl2::b))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-rev (equal (isodata-pos-isomap-alistp (rev acl2::x)) (isodata-pos-isomap-alistp (list-fix acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-duplicated-members (implies (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp (duplicated-members acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-difference (implies (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp (difference acl2::x acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-intersect-2 (implies (isodata-pos-isomap-alistp acl2::y) (isodata-pos-isomap-alistp (intersect acl2::x acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-intersect-1 (implies (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp (intersect acl2::x acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-union (iff (isodata-pos-isomap-alistp (union acl2::x acl2::y)) (and (isodata-pos-isomap-alistp (sfix acl2::x)) (isodata-pos-isomap-alistp (sfix acl2::y)))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-mergesort (iff (isodata-pos-isomap-alistp (mergesort acl2::x)) (isodata-pos-isomap-alistp (list-fix acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-delete (implies (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp (delete acl2::k acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-insert (iff (isodata-pos-isomap-alistp (insert acl2::a acl2::x)) (and (isodata-pos-isomap-alistp (sfix acl2::x)) (and (consp acl2::a) (posp (car acl2::a)) (isodata-isomapp (cdr acl2::a))))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-sfix (iff (isodata-pos-isomap-alistp (sfix acl2::x)) (or (isodata-pos-isomap-alistp acl2::x) (not (setp acl2::x)))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-list-fix (implies (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp (list-fix acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm true-listp-when-isodata-pos-isomap-alistp-compound-recognizer (implies (isodata-pos-isomap-alistp acl2::x) (true-listp acl2::x)) :rule-classes :compound-recognizer)
Theorem:
(defthm isodata-pos-isomap-alistp-when-not-consp (implies (not (consp acl2::x)) (equal (isodata-pos-isomap-alistp acl2::x) (not acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-cdr-when-isodata-pos-isomap-alistp (implies (isodata-pos-isomap-alistp (double-rewrite acl2::x)) (isodata-pos-isomap-alistp (cdr acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-cons (equal (isodata-pos-isomap-alistp (cons acl2::a acl2::x)) (and (and (consp acl2::a) (posp (car acl2::a)) (isodata-isomapp (cdr acl2::a))) (isodata-pos-isomap-alistp acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-make-fal (implies (and (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp acl2::y)) (isodata-pos-isomap-alistp (make-fal acl2::x acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-isomapp-of-cdr-when-member-equal-of-isodata-pos-isomap-alistp (and (implies (and (isodata-pos-isomap-alistp acl2::x) (member-equal acl2::a acl2::x)) (isodata-isomapp (cdr acl2::a))) (implies (and (member-equal acl2::a acl2::x) (isodata-pos-isomap-alistp acl2::x)) (isodata-isomapp (cdr acl2::a)))) :rule-classes ((:rewrite)))
Theorem:
(defthm posp-of-car-when-member-equal-of-isodata-pos-isomap-alistp (and (implies (and (isodata-pos-isomap-alistp acl2::x) (member-equal acl2::a acl2::x)) (posp (car acl2::a))) (implies (and (member-equal acl2::a acl2::x) (isodata-pos-isomap-alistp acl2::x)) (posp (car acl2::a)))) :rule-classes ((:rewrite)))
Theorem:
(defthm consp-when-member-equal-of-isodata-pos-isomap-alistp (implies (and (isodata-pos-isomap-alistp acl2::x) (member-equal acl2::a acl2::x)) (consp acl2::a)) :rule-classes ((:rewrite :backchain-limit-lst (0 0)) (:rewrite :backchain-limit-lst (0 0) :corollary (implies (if (member-equal acl2::a acl2::x) (isodata-pos-isomap-alistp acl2::x) 'nil) (consp acl2::a)))))
Theorem:
(defthm isodata-pos-isomap-alistp-of-remove-assoc (implies (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp (remove-assoc-equal acl2::name acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-put-assoc (implies (and (isodata-pos-isomap-alistp acl2::x)) (iff (isodata-pos-isomap-alistp (put-assoc-equal acl2::name acl2::val acl2::x)) (and (posp acl2::name) (isodata-isomapp acl2::val)))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-fast-alist-clean (implies (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp (fast-alist-clean acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-hons-shrink-alist (implies (and (isodata-pos-isomap-alistp acl2::x) (isodata-pos-isomap-alistp acl2::y)) (isodata-pos-isomap-alistp (hons-shrink-alist acl2::x acl2::y))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-pos-isomap-alistp-of-hons-acons (equal (isodata-pos-isomap-alistp (hons-acons acl2::a acl2::n acl2::x)) (and (posp acl2::a) (isodata-isomapp acl2::n) (isodata-pos-isomap-alistp acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-isomapp-of-cdr-of-hons-assoc-equal-when-isodata-pos-isomap-alistp (implies (isodata-pos-isomap-alistp acl2::x) (iff (isodata-isomapp (cdr (hons-assoc-equal acl2::k acl2::x))) (hons-assoc-equal acl2::k acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm alistp-when-isodata-pos-isomap-alistp-rewrite (implies (isodata-pos-isomap-alistp acl2::x) (alistp acl2::x)) :rule-classes ((:rewrite)))
Theorem:
(defthm alistp-when-isodata-pos-isomap-alistp (implies (isodata-pos-isomap-alistp acl2::x) (alistp acl2::x)) :rule-classes :tau-system)
Theorem:
(defthm isodata-isomapp-of-cdar-when-isodata-pos-isomap-alistp (implies (isodata-pos-isomap-alistp acl2::x) (iff (isodata-isomapp (cdar acl2::x)) (consp acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm posp-of-caar-when-isodata-pos-isomap-alistp (implies (isodata-pos-isomap-alistp acl2::x) (iff (posp (caar acl2::x)) (consp acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm isodata-posp-of-key-of-pos-isomap-alist (implies (and (isodata-pos-isomap-alistp x) (consp (assoc-equal k x))) (posp (car (assoc-equal k x)))))
Theorem:
(defthm isodata-isomapp-of-val-of-pos-isomap-alist (implies (and (isodata-pos-isomap-alistp x) (consp (assoc-equal k x))) (isodata-isomapp (cdr (assoc-equal k x)))))