Included Books
other
(in-package "ACL2")
include-book
(include-book "pseudo-lambdap")
local
(local (include-book "std/system/all-vars" :dir :system))
other
(define lambda-closedp ((lambd pseudo-lambdap)) :returns (yes/no booleanp) :parents (std/system/term-queries) :short "Check if a lambda expression is closed, i.e. it has no free variables." (subsetp-eq (all-vars (lambda-body lambd)) (lambda-formals lambd)) :guard-hints (("Goal" :in-theory (enable pseudo-lambdap))))