/usr/share/acl2-8.0dfsg/books/system/remove-guard-holders.lisp is in acl2-books-source 8.0dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | ; Copyright (C) 2017, Regents of the University of Texas
; Written by Matt Kaufmann
; License: A 3-clause BSD license. See the LICENSE file distributed with ACL2.
(in-package "ACL2")
(include-book "subcor-var")
; This use of make-event is awkward. But I couldn't find a better way to avoid
; problems caused by make-event storing a redundant event for
; verify-termination of remove-guard-holders1 during the first pass, which
; causes a failure during the second pass.
(make-event
(er-let* ((event (verify-termination-fn '(remove-guard-holders1) state)))
(value `(defmacro verify-termination-remove-guard-holders1 ()
',event))))
(local (include-book "remove-guard-holders-lemmas"))
(verify-termination-remove-guard-holders1) ; and guards
(verify-termination remove-guard-holders) ; and guards
|