/usr/share/acl2-6.3/books/make-event/gen-defthm.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 (DEFTHM! APP-SIMPLIFY (IMPLIES (TRUE-LISTP X) (EQUAL (APPEND X Y) ?)) :HINTS (("Goal" :EXPAND ((TRUE-LISTP X) (TRUE-LISTP (CDR X)) (APPEND X Y)))) :PRINT-FLG T) (ENCAPSULATE NIL (DEFTHM APP-SIMPLIFY$0 (IMPLIES (AND (CONSP X) (NOT (CDR X))) (EQUAL (APPEND X Y) (CONS (CAR X) Y))) :HINTS (("Goal" :EXPAND ((TRUE-LISTP X) (TRUE-LISTP (CDR X)) (APPEND X Y)) :IN-THEORY (UNION-THEORIES (DEFINITION-RUNES (UNION-EQ (QUOTE (IFF)) *EXPANDABLE-BOOT-STRAP-NON-REC-FNS*) T WORLD) (QUOTE ((:DEFINITION TRUE-LISTP) (:EXECUTABLE-COUNTERPART CONSP) (:DEFINITION BINARY-APPEND))))))) (DEFTHM APP-SIMPLIFY$1 (IMPLIES (AND (CONSP X) (CONSP (CDR X)) (TRUE-LISTP (CDDR X))) (EQUAL (APPEND X Y) (CONS (CAR X) (APPEND (CDR X) Y)))) :HINTS (("Goal" :EXPAND ((TRUE-LISTP X) (TRUE-LISTP (CDR X)) (APPEND X Y)) :IN-THEORY (UNION-THEORIES (DEFINITION-RUNES (UNION-EQ (QUOTE (IFF)) *EXPANDABLE-BOOT-STRAP-NON-REC-FNS*) T WORLD) (QUOTE ((:EXECUTABLE-COUNTERPART CONSP) (:DEFINITION TRUE-LISTP) (:DEFINITION BINARY-APPEND))))))) (DEFTHM APP-SIMPLIFY$2 (IMPLIES (NOT X) (EQUAL (APPEND X Y) Y)) :HINTS (("Goal" :EXPAND ((TRUE-LISTP X) (TRUE-LISTP (CDR X)) (APPEND X Y)) :IN-THEORY (UNION-THEORIES (DEFINITION-RUNES (UNION-EQ (QUOTE (IFF)) *EXPANDABLE-BOOT-STRAP-NON-REC-FNS*) T WORLD) (QUOTE ((:DEFINITION TRUE-LISTP) (:DEFINITION BINARY-APPEND) (:EXECUTABLE-COUNTERPART CONSP))))))))))
NIL
(("/usr/share/acl2-6.3/books/make-event/gen-defthm.lisp" "gen-defthm" "gen-defthm" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1121951954) ("/usr/share/acl2-6.3/books/misc/expander.lisp" "misc/expander" "expander" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2012198438))
204442389
|