lambda-guard-verified-fnsp-tests

Included Books

lambda-guard-verified-fnsp assert-bang must-succeed-star

other

(in-package "ACL2")

include-book

(include-book "lambda-guard-verified-fnsp")

include-book

(include-book "std/testing/assert-bang" :dir :system)

include-book

(include-book "std/testing/must-succeed-star" :dir :system)

other

(assert! (lambda-guard-verified-fnsp '(lambda (a) (cons (len a) '3))
    (w state)))

other

(must-succeed* (defun f (x) (declare (xargs :verify-guards nil)) x)
  (assert! (not (lambda-guard-verified-fnsp '(lambda (x) (zp (f '4)))
        (w state)))))