Filtering...

guard-verified-p-plus-tests

books/std/system/guard-verified-p-plus-tests

Included Books

guard-verified-p-plus assert-bang must-succeed-star
other
(in-package "ACL2")
include-book
(include-book "guard-verified-p-plus")
include-book
(include-book "std/testing/assert-bang" :dir :system)
include-book
(include-book "std/testing/must-succeed-star" :dir :system)
other
(assert! (guard-verified-p+ 'len (w state)))
other
(assert! (guard-verified-p+ 'cons (w state)))
other
(must-succeed* (defun f (x) (declare (xargs :verify-guards t)) x)
  (assert! (guard-verified-p+ 'f (w state))))
other
(must-succeed* (defun f (x) (declare (xargs :verify-guards nil)) x)
  (assert! (not (guard-verified-p+ 'f (w state)))))
other
(must-succeed* (defthm th (acl2-numberp (+ (fix x) (fix y))))
  (verify-guards th)
  (assert! (guard-verified-p+ 'th (w state))))
other
(must-succeed* (defthm th (acl2-numberp (+ x y)))
  (assert! (not (guard-verified-p+ 'th (w state)))))