Filtering...

definedp-tests

books/std/system/definedp-tests

Included Books

definedp assert-bang must-succeed-star
other
(in-package "ACL2")
include-book
(include-book "definedp")
include-book
(include-book "std/testing/assert-bang" :dir :system)
include-book
(include-book "std/testing/must-succeed-star" :dir :system)
other
(assert! (definedp 'not (w state)))
other
(assert! (not (definedp 'cons (w state))))
other
(must-succeed* (defun f (x) x)
  (assert! (definedp 'f (w state))))
other
(must-succeed* (defstub f (*) => *)
  (assert! (not (definedp 'f (w state)))))
other
(must-succeed* (encapsulate (((f *) => *))
    (local (defun f (x) x))
    (defthm th (equal (f x) x)))
  (assert! (not (definedp 'f (w state)))))
other
(must-succeed* (defchoose f x (y) (equal x y))
  (assert! (not (definedp 'f (w state)))))