Filtering...

theorem-name-listp-tests

books/std/system/theorem-name-listp-tests

Included Books

theorem-name-listp assert-bang must-succeed-star
other
(in-package "ACL2")
include-book
(include-book "theorem-name-listp")
include-book
(include-book "std/testing/assert-bang" :dir :system)
include-book
(include-book "std/testing/must-succeed-star" :dir :system)
other
(assert! (theorem-name-listp nil (w state)))
other
(assert! (theorem-name-listp '(car-cdr-elim cons-car-cdr) (w state)))
other
(assert! (not (theorem-name-listp '(car-cdr-elim len) (w state))))
other
(must-succeed* (defthm th1 (acl2-numberp (+ x y)))
  (defthm th2 (acl2-numberp (- x)))
  (assert! (theorem-name-listp '(th2 th1) (w state))))
other
(assert! (not (theorem-name-listp 33 (w state))))
other
(assert! (not (theorem-name-listp '(1 2 3) (w state))))
other
(assert! (not (theorem-name-listp "ab" (w state))))