Filtering...

logic-function-namep-tests

books/std/system/logic-function-namep-tests

Included Books

logic-function-namep assert-bang must-succeed-star
other
(in-package "ACL2")
include-book
(include-book "logic-function-namep")
include-book
(include-book "std/testing/assert-bang" :dir :system)
include-book
(include-book "std/testing/must-succeed-star" :dir :system)
other
(assert! (logic-function-namep 'len (w state)))
other
(assert! (not (logic-function-namep 'car-cdr-elim (w state))))
other
(assert! (not (logic-function-namep 'aaaaaaaaa (w state))))
other
(must-succeed* (defun f (x) x)
  (assert! (logic-function-namep 'f (w state))))
other
(assert! (not (logic-function-namep "len" (w state))))
other
(assert! (logic-function-namep 'error1 (w state)))
other
(must-succeed* (defun f (x) (declare (xargs :mode :program)) x)
  (assert! (not (logic-function-namep 'f (w state)))))