Basic theorems about expr-list-constp, generated by std::deflist.
Theorem:
(defthm expr-list-constp-of-cons (equal (expr-list-constp (cons acl2::a acl2::x)) (and (expr-constp acl2::a) (expr-list-constp acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm expr-list-constp-of-cdr-when-expr-list-constp (implies (expr-list-constp (double-rewrite acl2::x)) (expr-list-constp (cdr acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm expr-list-constp-when-not-consp (implies (not (consp acl2::x)) (expr-list-constp acl2::x)) :rule-classes ((:rewrite)))
Theorem:
(defthm expr-constp-of-car-when-expr-list-constp (implies (expr-list-constp acl2::x) (iff (expr-constp (car acl2::x)) (consp acl2::x))) :rule-classes ((:rewrite)))
Theorem:
(defthm expr-list-constp-of-append (equal (expr-list-constp (append acl2::a acl2::b)) (and (expr-list-constp acl2::a) (expr-list-constp acl2::b))) :rule-classes ((:rewrite)))
Theorem:
(defthm expr-list-constp-of-list-fix (equal (expr-list-constp (list-fix acl2::x)) (expr-list-constp acl2::x)) :rule-classes ((:rewrite)))
Theorem:
(defthm expr-list-constp-of-rev (equal (expr-list-constp (rev acl2::x)) (expr-list-constp (list-fix acl2::x))) :rule-classes ((:rewrite)))