/usr/share/acl2-6.3/books/misc/assert.cert is in acl2-books-certs 6.3-5.
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 | (IN-PACKAGE "ACL2")
"ACL2 Version 6.3"
:BEGIN-PORTCULLIS-CMDS
:END-PORTCULLIS-CMDS
:EXPANSION-ALIST
((3 RECORD-EXPANSION (ASSERT! (EQUAL 3 3) (DEFUN ASSERT-TEST1 (X) X)) (DEFUN ASSERT-TEST1 (X) X)) (6 RECORD-EXPANSION (LOCAL (MUST-FAIL (ASSERT! (EQUAL 3 4) (DEFUN ASSERT-TEST2 (X) X)))) (LOCAL (VALUE-TRIPLE :ELIDED))) (8 RECORD-EXPANSION (ASSERT! (EQUAL (APPEND (QUOTE (A B C)) (QUOTE (D E F))) (QUOTE (A B C D E F)))) (VALUE-TRIPLE :SUCCESS)) (9 RECORD-EXPANSION (LOCAL (MUST-FAIL (ASSERT! (EQUAL (APPEND (QUOTE (A B C)) (QUOTE (D E F))) (QUOTE (A B)))))) (LOCAL (VALUE-TRIPLE :ELIDED))) (10 RECORD-EXPANSION (LOCAL (ASSERT! (EQUAL (ACCESS-COMMAND-TUPLE-FORM (CDDR (CAR (SCAN-TO-COMMAND (W STATE))))) (QUOTE (EXIT-BOOT-STRAP-MODE))))) (LOCAL (VALUE-TRIPLE :ELIDED))) (13 RECORD-EXPANSION (LOCAL (ENCAPSULATE NIL (DEFSTOBJ FOO FIELD1 FIELD2) (DEFUN TEST-STOBJ (X FOO) (DECLARE (XARGS :STOBJS FOO)) (LET ((FOO (UPDATE-FIELD1 17 FOO))) (UPDATE-FIELD2 X FOO))) (ASSERT!-STOBJ (LET* ((FOO (TEST-STOBJ 14 FOO))) (MV (EQUAL (FIELD1 FOO) 17) FOO)) FOO) (MUST-FAIL (ASSERT!-STOBJ (LET* ((FOO (TEST-STOBJ 14 FOO))) (MV (EQUAL (FIELD1 FOO) 14) FOO)) FOO)))) (LOCAL (VALUE-TRIPLE :ELIDED))))
NIL
(("/usr/share/acl2-6.3/books/misc/assert.lisp" "assert" "assert" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1184956729) ("/usr/share/acl2-6.3/books/misc/eval.lisp" "eval" "eval" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1069973718))
1698096890
|