acl2-books-certs 6.3-5 / usr / share / acl2-6.3 / books / cgen / base.cert

(IN-PACKAGE "ACL2")
"ACL2 Version 6.3"
:BEGIN-PORTCULLIS-CMDS
(DEFPKG "DEFDATA" (APPEND (QUOTE (GETPROP KEY VAL FORMALS MACRO-ARGS CONST DECODE-LOGICAL-NAME VALUE LEGAL-CONSTANTP ER-LET* B* MACROEXPAND1 TRANS-EVAL SIMPLE-TRANSLATE-AND-EVAL ASSERT-EVENT LEGAL-VARIABLE-OR-CONSTANT-NAMEP F-BOUNDP-GLOBAL F-GET-GLOBAL F-PUT-GLOBAL PROOF-CHECKER EXPANSION EQUIVALENCE-RELATIONP 1+F 1-F +F -F DEFXDOC CURRENT-ACL2-WORLD E/D UNSIGNED-BYTE-P DEFREC VARIABLEP FQUOTEP FFN-SYMB FLAMBDAP FARGS LAMBDA-BODY LAMBDA-FORMALS SUBCOR-VAR DUMB-NEGATE-LIT IS-SUBTYPE IS-DISJOINT NAT-LISTP ALLP ACL2-NUMBER-LISTP NATURALS-LISTP POS-LISTP ONEOF ANYOF DATA-CONSTRUCTORS X N V INFXLST FINXLST LISTOF ENUM RECORD MAP SET NFIXG SET-ACL2S-DEFDATA-VERBOSE GET-ACL2S-DEFDATA-VERBOSE MGET MSET C REGISTER-DATA-CONSTRUCTOR DEFINE-ENUMERATION-TYPE DEFDATA-SUBTYPE DEFDATA-DISJOINT REGISTER-CUSTOM-TYPE DEFDATA DEFDATA-TESTING TEST? TOP-LEVEL-TEST? ACL2S-DEFAULTS SET-ACL2S-RANDOM-TESTING-ENABLED GET-ACL2S-RANDOM-TESTING-ENABLED DONT-PRINT-THANKS-MESSAGE-OVERRIDE-HINT NUM-TRIALS VERBOSITY-LEVEL SHOW-TESTING-OUTPUT NUM-WITNESSES NUM-COUNTEREXAMPLES SHOW-TOP-LEVEL-COUNTEREXAMPLE SAMPLING-METHOD BACKTRACK-LIMIT SUBGOAL-TIMEOUT SEARCH-STRATEGY STOPPING-CONDITION TESTING-ENABLED SYSTEM-DEBUG-FLAG INHIBIT-OUTPUT-FLAG NORMAL-OUTPUT-FLAG VERBOSE-FLAG DEBUG-FLAG)) (UNION-EQ *ACL2-EXPORTS* *COMMON-LISP-SYMBOLS-FROM-MAIN-LISP-PACKAGE*)))
(INCLUDE-BOOK "std/osets/portcullis" :DIR :SYSTEM)
:END-PORTCULLIS-CMDS
:EXPANSION-ALIST
((23 RECORD-EXPANSION (DEFINE-ENUMERATION-TYPE BOOLEAN (QUOTE (T NIL))) (PROGN (PROGN (DEFCONST *BOOLEAN-VALUES* (QUOTE (T NIL))) (DEFUN NTH-BOOLEAN (N) (DECLARE (XARGS :GUARD (NATP N))) (NTH (MOD N 2) *BOOLEAN-VALUES*))) (LOCAL (VALUE-TRIPLE :ELIDED)) (RECORD-EXPANSION (REGISTER-CUSTOM-TYPE BOOLEAN 2 *BOOLEAN-VALUES* BOOLEANP :TYPE-CLASS ENUM) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-BOOLEAN)) (DEFUND NTH-BOOLEAN-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-BOOLEAN N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE BOOLEAN) (QUOTE (DEFDATA::TYPES-INFO% 2 *BOOLEAN-VALUES* BOOLEANP NIL NTH-BOOLEAN-UNIFORM NIL NIL ENUM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE BOOLEAN) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE BOOLEAN) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE BOOLEAN) (QUOTE (2 *BOOLEAN-VALUES* BOOLEANP NIL NIL NIL ENUM))))))) (VALUE-TRIPLE (QUOTE BOOLEAN)))) (71 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE NAT T NTH-NAT NATP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-NAT)) (DEFUND NTH-NAT-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-NAT N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE NAT) (QUOTE (DEFDATA::TYPES-INFO% T NTH-NAT NATP NIL NTH-NAT-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NAT) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NAT) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE NAT) (QUOTE (T NTH-NAT NATP NIL NIL NIL CUSTOM))))))) (72 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE POS T NTH-POS POSP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-POS)) (DEFUND NTH-POS-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-POS N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE POS) (QUOTE (DEFDATA::TYPES-INFO% T NTH-POS POSP NIL NTH-POS-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE POS) (QUOTE (T NTH-POS POSP NIL NIL NIL CUSTOM))))))) (73 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE NEG T NTH-NEG NEGP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-NEG)) (DEFUND NTH-NEG-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-NEG N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE NEG) (QUOTE (DEFDATA::TYPES-INFO% T NTH-NEG NEGP NIL NTH-NEG-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEG) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEG) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE NEG) (QUOTE (T NTH-NEG NEGP NIL NIL NIL CUSTOM))))))) (74 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE INTEGER T NTH-INTEGER INTEGERP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-INTEGER)) (DEFUND NTH-INTEGER-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-INTEGER N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE INTEGER) (QUOTE (DEFDATA::TYPES-INFO% T NTH-INTEGER INTEGERP NIL NTH-INTEGER-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE INTEGER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE INTEGER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE INTEGER) (QUOTE (T NTH-INTEGER INTEGERP NIL NIL NIL CUSTOM))))))) (75 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE POSITIVE-RATIO T NTH-POSITIVE-RATIO POSITIVE-RATIOP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-POSITIVE-RATIO)) (DEFUND NTH-POSITIVE-RATIO-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-POSITIVE-RATIO N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE POSITIVE-RATIO) (QUOTE (DEFDATA::TYPES-INFO% T NTH-POSITIVE-RATIO POSITIVE-RATIOP NIL NTH-POSITIVE-RATIO-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POSITIVE-RATIO) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POSITIVE-RATIO) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE POSITIVE-RATIO) (QUOTE (T NTH-POSITIVE-RATIO POSITIVE-RATIOP NIL NIL NIL CUSTOM))))))) (76 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE NEGATIVE-RATIO T NTH-NEGATIVE-RATIO NEGATIVE-RATIOP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-NEGATIVE-RATIO)) (DEFUND NTH-NEGATIVE-RATIO-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-NEGATIVE-RATIO N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE NEGATIVE-RATIO) (QUOTE (DEFDATA::TYPES-INFO% T NTH-NEGATIVE-RATIO NEGATIVE-RATIOP NIL NTH-NEGATIVE-RATIO-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEGATIVE-RATIO) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEGATIVE-RATIO) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE NEGATIVE-RATIO) (QUOTE (T NTH-NEGATIVE-RATIO NEGATIVE-RATIOP NIL NIL NIL CUSTOM))))))) (77 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE POSITIVE-RATIONAL T NTH-POSITIVE-RATIONAL POSITIVE-RATIONALP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-POSITIVE-RATIONAL)) (DEFUND NTH-POSITIVE-RATIONAL-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-POSITIVE-RATIONAL N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE POSITIVE-RATIONAL) (QUOTE (DEFDATA::TYPES-INFO% T NTH-POSITIVE-RATIONAL POSITIVE-RATIONALP NIL NTH-POSITIVE-RATIONAL-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POSITIVE-RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POSITIVE-RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE POSITIVE-RATIONAL) (QUOTE (T NTH-POSITIVE-RATIONAL POSITIVE-RATIONALP NIL NIL NIL CUSTOM))))))) (78 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE NEGATIVE-RATIONAL T NTH-NEGATIVE-RATIONAL NEGATIVE-RATIONALP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-NEGATIVE-RATIONAL)) (DEFUND NTH-NEGATIVE-RATIONAL-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-NEGATIVE-RATIONAL N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE NEGATIVE-RATIONAL) (QUOTE (DEFDATA::TYPES-INFO% T NTH-NEGATIVE-RATIONAL NEGATIVE-RATIONALP NIL NTH-NEGATIVE-RATIONAL-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEGATIVE-RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEGATIVE-RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE NEGATIVE-RATIONAL) (QUOTE (T NTH-NEGATIVE-RATIONAL NEGATIVE-RATIONALP NIL NIL NIL CUSTOM))))))) (79 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE RATIONAL T NTH-RATIONAL RATIONALP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-RATIONAL)) (DEFUND NTH-RATIONAL-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-RATIONAL N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE RATIONAL) (QUOTE (DEFDATA::TYPES-INFO% T NTH-RATIONAL RATIONALP NIL NTH-RATIONAL-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE RATIONAL) (QUOTE (T NTH-RATIONAL RATIONALP NIL NIL NIL CUSTOM))))))) (80 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE COMPLEX-RATIONAL T NTH-COMPLEX-RATIONAL COMPLEX-RATIONALP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-COMPLEX-RATIONAL)) (DEFUND NTH-COMPLEX-RATIONAL-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-COMPLEX-RATIONAL N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE COMPLEX-RATIONAL) (QUOTE (DEFDATA::TYPES-INFO% T NTH-COMPLEX-RATIONAL COMPLEX-RATIONALP NIL NTH-COMPLEX-RATIONAL-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE COMPLEX-RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE COMPLEX-RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE COMPLEX-RATIONAL) (QUOTE (T NTH-COMPLEX-RATIONAL COMPLEX-RATIONALP NIL NIL NIL CUSTOM))))))) (81 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE ACL2-NUMBER T NTH-ACL2-NUMBER ACL2-NUMBERP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-ACL2-NUMBER)) (DEFUND NTH-ACL2-NUMBER-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-ACL2-NUMBER N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE ACL2-NUMBER) (QUOTE (DEFDATA::TYPES-INFO% T NTH-ACL2-NUMBER ACL2-NUMBERP NIL NTH-ACL2-NUMBER-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE ACL2-NUMBER) (QUOTE (T NTH-ACL2-NUMBER ACL2-NUMBERP NIL NIL NIL CUSTOM))))))) (82 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE SYMBOL T NTH-SYMBOL SYMBOLP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-SYMBOL)) (DEFUND NTH-SYMBOL-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-SYMBOL N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE SYMBOL) (QUOTE (DEFDATA::TYPES-INFO% T NTH-SYMBOL SYMBOLP NIL NTH-SYMBOL-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE SYMBOL) (QUOTE (T NTH-SYMBOL SYMBOLP NIL NIL NIL CUSTOM))))))) (85 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE CHARACTER 62 *CHARACTER-VALUES* CHARACTERP :ENUM-UNIFORM NTH-CHARACTER-UNIFORM) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-CHARACTER)) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CHARACTER) (QUOTE (DEFDATA::TYPES-INFO% 62 *CHARACTER-VALUES* CHARACTERP NIL NTH-CHARACTER-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE CHARACTER) (QUOTE (62 *CHARACTER-VALUES* CHARACTERP NIL NIL NIL CUSTOM))))))) (86 RECORD-EXPANSION (DEFINE-ENUMERATION-TYPE STANDARD-CHAR *STANDARD-CHARS*) (PROGN (PROGN (DEFCONST *STANDARD-CHAR-VALUES* (QUOTE (#\Newline #\Space #\! #\" #\# #\$ #\% #\& #\' #\( #\) #\* #\+ #\, #\- #\. #\/ #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\: #\; #\< #\= #\> #\? #\@ #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z #\[ #\\ #\] #\^ #\_ #\` #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z #\{ #\| #\} #\~))) (DEFUN NTH-STANDARD-CHAR (N) (DECLARE (XARGS :GUARD (NATP N))) (NTH (MOD N 96) *STANDARD-CHAR-VALUES*))) (DEFUN STANDARD-CHARP (X) (DECLARE (XARGS :GUARD T)) (IF (MEMBER-EQUAL X *STANDARD-CHAR-VALUES*) T NIL)) (RECORD-EXPANSION (REGISTER-CUSTOM-TYPE STANDARD-CHAR 96 *STANDARD-CHAR-VALUES* STANDARD-CHARP :TYPE-CLASS ENUM) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-STANDARD-CHAR)) (DEFUND NTH-STANDARD-CHAR-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-STANDARD-CHAR N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE STANDARD-CHAR) (QUOTE (DEFDATA::TYPES-INFO% 96 *STANDARD-CHAR-VALUES* STANDARD-CHARP NIL NTH-STANDARD-CHAR-UNIFORM NIL NIL ENUM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-CHAR) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-CHAR) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE STANDARD-CHAR) (QUOTE (96 *STANDARD-CHAR-VALUES* STANDARD-CHARP NIL NIL NIL ENUM))))))) (VALUE-TRIPLE (QUOTE STANDARD-CHAR)))) (87 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE STRING T NTH-STRING STRINGP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-STRING)) (DEFUND NTH-STRING-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-STRING N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE STRING) (QUOTE (DEFDATA::TYPES-INFO% T NTH-STRING STRINGP NIL NTH-STRING-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STRING) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STRING) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE STRING) (QUOTE (T NTH-STRING STRINGP NIL NIL NIL CUSTOM))))))) (88 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE STANDARD-STRING T NTH-STANDARD-STRING STANDARD-STRINGP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-STANDARD-STRING)) (DEFUND NTH-STANDARD-STRING-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-STANDARD-STRING N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE STANDARD-STRING) (QUOTE (DEFDATA::TYPES-INFO% T NTH-STANDARD-STRING STANDARD-STRINGP NIL NTH-STANDARD-STRING-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-STRING) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-STRING) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE STANDARD-STRING) (QUOTE (T NTH-STANDARD-STRING STANDARD-STRINGP NIL NIL NIL CUSTOM))))))) (89 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE ATOM T NTH-ATOM ATOM) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-ATOM)) (DEFUND NTH-ATOM-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-ATOM N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE ATOM) (QUOTE (DEFDATA::TYPES-INFO% T NTH-ATOM ATOM NIL NTH-ATOM-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE ATOM) (QUOTE (T NTH-ATOM ATOM NIL NIL NIL CUSTOM))))))) (93 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE Z T NTH-Z ZP :ENUM-UNIFORM NTH-Z-UNIFORM) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-Z)) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE Z) (QUOTE (DEFDATA::TYPES-INFO% T NTH-Z ZP NIL NTH-Z-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE Z) (QUOTE (T NTH-Z ZP NIL NIL NIL CUSTOM))))))) (94 RECORD-EXPANSION (DEFDATA-SUBTYPE POS NAT) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::POS-IS-SUBTYPE-OF-NAT (IMPLIES (POSP X) (NATP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE POS NAT) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NAT) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (95 RECORD-EXPANSION (DEFDATA-SUBTYPE NAT INTEGER) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::NAT-IS-SUBTYPE-OF-INTEGER (IMPLIES (NATP X) (INTEGERP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE NAT INTEGER) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NAT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE INTEGER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (96 RECORD-EXPANSION (DEFDATA-SUBTYPE NEG INTEGER) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::NEG-IS-SUBTYPE-OF-INTEGER (IMPLIES (NEGP X) (INTEGERP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE NEG INTEGER) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEG) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE INTEGER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (97 RECORD-EXPANSION (DEFDATA-SUBTYPE INTEGER RATIONAL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::INTEGER-IS-SUBTYPE-OF-RATIONAL (IMPLIES (INTEGERP X) (RATIONALP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE INTEGER RATIONAL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE INTEGER) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (98 RECORD-EXPANSION (DEFDATA-SUBTYPE POSITIVE-RATIO RATIONAL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::POSITIVE-RATIO-IS-SUBTYPE-OF-RATIONAL (IMPLIES (POSITIVE-RATIOP X) (RATIONALP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE POSITIVE-RATIO RATIONAL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POSITIVE-RATIO) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (99 RECORD-EXPANSION (DEFDATA-SUBTYPE POSITIVE-RATIONAL RATIONAL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::POSITIVE-RATIONAL-IS-SUBTYPE-OF-RATIONAL (IMPLIES (POSITIVE-RATIONALP X) (RATIONALP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE POSITIVE-RATIONAL RATIONAL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POSITIVE-RATIONAL) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (100 RECORD-EXPANSION (DEFDATA-SUBTYPE NEGATIVE-RATIO RATIONAL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::NEGATIVE-RATIO-IS-SUBTYPE-OF-RATIONAL (IMPLIES (NEGATIVE-RATIOP X) (RATIONALP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE NEGATIVE-RATIO RATIONAL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEGATIVE-RATIO) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (101 RECORD-EXPANSION (DEFDATA-SUBTYPE NEGATIVE-RATIONAL RATIONAL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::NEGATIVE-RATIONAL-IS-SUBTYPE-OF-RATIONAL (IMPLIES (NEGATIVE-RATIONALP X) (RATIONALP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE NEGATIVE-RATIONAL RATIONAL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEGATIVE-RATIONAL) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (102 RECORD-EXPANSION (DEFDATA-SUBTYPE COMPLEX-RATIONAL ACL2-NUMBER) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::COMPLEX-RATIONAL-IS-SUBTYPE-OF-ACL2-NUMBER (IMPLIES (COMPLEX-RATIONALP X) (ACL2-NUMBERP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE COMPLEX-RATIONAL ACL2-NUMBER) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE COMPLEX-RATIONAL) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (103 RECORD-EXPANSION (DEFDATA-SUBTYPE RATIONAL ACL2-NUMBER) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::RATIONAL-IS-SUBTYPE-OF-ACL2-NUMBER (IMPLIES (RATIONALP X) (ACL2-NUMBERP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE RATIONAL ACL2-NUMBER) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (104 RECORD-EXPANSION (DEFDATA-SUBTYPE ACL2-NUMBER ATOM) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::ACL2-NUMBER-IS-SUBTYPE-OF-ATOM (IMPLIES (ACL2-NUMBERP X) (ATOMP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE ACL2-NUMBER ATOM) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (105 RECORD-EXPANSION (DEFDATA-SUBTYPE BOOLEAN SYMBOL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::BOOLEAN-IS-SUBTYPE-OF-SYMBOL (IMPLIES (BOOLEANP X) (SYMBOLP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE BOOLEAN SYMBOL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE BOOLEAN) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (106 RECORD-EXPANSION (DEFDATA-SUBTYPE CHARACTER ATOM) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CHARACTER-IS-SUBTYPE-OF-ATOM (IMPLIES (CHARACTERP X) (ATOMP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE CHARACTER ATOM) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (107 RECORD-EXPANSION (DEFDATA-SUBTYPE STRING ATOM) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::STRING-IS-SUBTYPE-OF-ATOM (IMPLIES (STRINGP X) (ATOMP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE STRING ATOM) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STRING) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (108 RECORD-EXPANSION (DEFDATA-SUBTYPE SYMBOL ATOM) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::SYMBOL-IS-SUBTYPE-OF-ATOM (IMPLIES (SYMBOLP X) (ATOMP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE SYMBOL ATOM) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (109 RECORD-EXPANSION (DEFDATA RATIO (ONEOF POSITIVE-RATIO NEGATIVE-RATIO) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (RATIOP)))) (DEFUNS (RATIOP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (OR (POSITIVE-RATIOP V) (NEGATIVE-RATIOP V)))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-RATIO)))) (DEFUNS (NTH-RATIO (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (MV-LET (N X) (DEFDATA::SWITCH-NAT 2 (NFIX X)) (IF (= N 0) (NTH-POSITIVE-RATIO X) (NTH-NEGATIVE-RATIO X))))) (IN-THEORY (DISABLE NTH-RATIO)) (DEFUNS (NTH-RATIO-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-INDEX-SEED 2 DEFDATA::SEED) (CASE N (0 (NTH-POSITIVE-RATIO-UNIFORM DEFDATA::M DEFDATA::SEED)) (OTHERWISE (NTH-NEGATIVE-RATIO-UNIFORM DEFDATA::M DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-RATIO-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE UNION))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE RATIO) (QUOTE (DEFDATA::TYPES-INFO% T NTH-RATIO RATIOP NIL NTH-RATIO-UNIFORM NIL T UNION ((RATIO (ONEOF POSITIVE-RATIO NEGATIVE-RATIO))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (RATIO)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIO) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIO) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (DEFDATA-SUBTYPE POSITIVE-RATIO RATIO) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::POSITIVE-RATIO-IS-SUBTYPE-OF-RATIO (IMPLIES (POSITIVE-RATIOP X) (RATIOP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE POSITIVE-RATIO RATIO) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POSITIVE-RATIO) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIO) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (RECORD-EXPANSION (DEFDATA-SUBTYPE NEGATIVE-RATIO RATIO) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::NEGATIVE-RATIO-IS-SUBTYPE-OF-RATIO (IMPLIES (NEGATIVE-RATIOP X) (RATIOP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE NEGATIVE-RATIO RATIO) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEGATIVE-RATIO) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIO) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (RATIO))))))) (110 RECORD-EXPANSION (DEFDATA-SUBTYPE RATIO RATIONAL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::RATIO-IS-SUBTYPE-OF-RATIONAL (IMPLIES (RATIOP X) (RATIONALP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE RATIO RATIONAL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIO) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (111 RECORD-EXPANSION (DEFDATA-SUBTYPE NEG NEGATIVE-RATIONAL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::NEG-IS-SUBTYPE-OF-NEGATIVE-RATIONAL (IMPLIES (NEGP X) (NEGATIVE-RATIONALP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE NEG NEGATIVE-RATIONAL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEG) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEGATIVE-RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (112 RECORD-EXPANSION (DEFDATA-SUBTYPE POS POSITIVE-RATIONAL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::POS-IS-SUBTYPE-OF-POSITIVE-RATIONAL (IMPLIES (POSP X) (POSITIVE-RATIONALP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE POS POSITIVE-RATIONAL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POSITIVE-RATIONAL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (113 RECORD-EXPANSION (DEFDATA-SUBTYPE NEGATIVE-RATIONAL Z) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::NEGATIVE-RATIONAL-IS-SUBTYPE-OF-Z (IMPLIES (NEGATIVE-RATIONALP X) (ZP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE NEGATIVE-RATIONAL Z) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NEGATIVE-RATIONAL) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (114 RECORD-EXPANSION (DEFDATA-SUBTYPE RATIO Z) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::RATIO-IS-SUBTYPE-OF-Z (IMPLIES (RATIOP X) (ZP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE RATIO Z) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIO) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (115 RECORD-EXPANSION (DEFDATA-SUBTYPE COMPLEX-RATIONAL Z) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::COMPLEX-RATIONAL-IS-SUBTYPE-OF-Z (IMPLIES (COMPLEX-RATIONALP X) (ZP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE COMPLEX-RATIONAL Z) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE COMPLEX-RATIONAL) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (116 RECORD-EXPANSION (DEFDATA-SUBTYPE SYMBOL Z) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::SYMBOL-IS-SUBTYPE-OF-Z (IMPLIES (SYMBOLP X) (ZP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE SYMBOL Z) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (117 RECORD-EXPANSION (DEFDATA-SUBTYPE CHARACTER Z) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CHARACTER-IS-SUBTYPE-OF-Z (IMPLIES (CHARACTERP X) (ZP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE CHARACTER Z) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (118 RECORD-EXPANSION (DEFDATA-SUBTYPE STRING Z) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::STRING-IS-SUBTYPE-OF-Z (IMPLIES (STRINGP X) (ZP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE STRING Z) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STRING) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (119 RECORD-EXPANSION (DEFDATA-DISJOINT POS Z) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::POS-IS-DISJOINT-WITH-Z (IMPLIES (POSP X) (NOT (ZP X))) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :DISJOINT POS Z) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :DISJOINT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (120 RECORD-EXPANSION (DEFDATA-DISJOINT ACL2-NUMBER CHARACTER) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::ACL2-NUMBER-IS-DISJOINT-WITH-CHARACTER (IMPLIES (ACL2-NUMBERP X) (NOT (CHARACTERP X))) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :DISJOINT ACL2-NUMBER CHARACTER) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :DISJOINT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (121 RECORD-EXPANSION (DEFDATA-DISJOINT ACL2-NUMBER SYMBOL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::ACL2-NUMBER-IS-DISJOINT-WITH-SYMBOL (IMPLIES (ACL2-NUMBERP X) (NOT (SYMBOLP X))) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :DISJOINT ACL2-NUMBER SYMBOL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :DISJOINT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (122 RECORD-EXPANSION (DEFDATA-DISJOINT CHARACTER STRING) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CHARACTER-IS-DISJOINT-WITH-STRING (IMPLIES (CHARACTERP X) (NOT (STRINGP X))) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :DISJOINT CHARACTER STRING) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :DISJOINT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STRING) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (123 RECORD-EXPANSION (DEFDATA-DISJOINT CHARACTER SYMBOL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CHARACTER-IS-DISJOINT-WITH-SYMBOL (IMPLIES (CHARACTERP X) (NOT (SYMBOLP X))) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :DISJOINT CHARACTER SYMBOL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :DISJOINT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (124 RECORD-EXPANSION (DEFDATA-DISJOINT STRING SYMBOL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::STRING-IS-DISJOINT-WITH-SYMBOL (IMPLIES (STRINGP X) (NOT (SYMBOLP X))) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :DISJOINT STRING SYMBOL) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :DISJOINT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STRING) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (129 RECORD-EXPANSION (DEFDATA NAT-LIST (LISTOF NAT) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM NAT-LISTP-TESTTHM (EQUAL (NAT-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (NATP (CAR V)) (NAT-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-NAT-LIST)))) (DEFUNS (NTH-NAT-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-NAT X)) (LET ((X (NTH 1 INFXLST))) (NTH-NAT-LIST X)))))))) (IN-THEORY (DISABLE NTH-NAT-LIST)) (DEFUNS (NTH-NAT-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-NAT-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-NAT-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-NAT-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE NAT-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-NAT-LIST NAT-LISTP NIL NTH-NAT-LIST-UNIFORM T T LISTOF ((NAT-LIST (ONEOF NIL (CONS NAT NAT-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (NAT-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NAT-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NAT-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-NAT-LISTP-TAU-RULE-EQUAL-NIL (NAT-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-NAT-LISTP-TAU-RULE-EQUAL-NIL (NAT-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM NAT-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (NAT-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM NAT-LISTP-TLP-CONS (IMPLIES (AND (NATP X) (NAT-LISTP Y)) (NAT-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM NAT-LISTP-TLP-DESTR (IMPLIES (AND (NAT-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (NATP (CAR DEFDATA::L)) (NAT-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM NAT-LISTP-IMPLIES-TLP (IMPLIES (NAT-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM NAT-LISTP-TLP-APPEND (IMPLIES (AND (NAT-LISTP X) (NAT-LISTP Y)) (NAT-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM NAT-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (NAT-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM NAT-LISTP-TLP-CONS (IMPLIES (AND (NATP X) (NAT-LISTP Y)) (NAT-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM NAT-LISTP-TLP-DESTR (IMPLIES (AND (NAT-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (NATP (CAR DEFDATA::L)) (NAT-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM NAT-LISTP-IMPLIES-TLP (IMPLIES (NAT-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM NAT-LISTP-TLP-APPEND (IMPLIES (AND (NAT-LISTP X) (NAT-LISTP Y)) (NAT-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (NAT-LIST))))))) (130 RECORD-EXPANSION (VERIFY-TERMINATION POS-LISTP) (VALUE-TRIPLE :REDUNDANT)) (132 RECORD-EXPANSION (DEFDATA POS-LIST (LISTOF POS) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM POS-LISTP-TESTTHM (EQUAL (POS-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (POSP (CAR V)) (POS-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-POS-LIST)))) (DEFUNS (NTH-POS-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-POS X)) (LET ((X (NTH 1 INFXLST))) (NTH-POS-LIST X)))))))) (IN-THEORY (DISABLE NTH-POS-LIST)) (DEFUNS (NTH-POS-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-POS-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-POS-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-POS-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE POS-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-POS-LIST POS-LISTP NIL NTH-POS-LIST-UNIFORM T T LISTOF ((POS-LIST (ONEOF NIL (CONS POS POS-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (POS-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POS-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POS-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-POS-LISTP-TAU-RULE-EQUAL-NIL (POS-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-POS-LISTP-TAU-RULE-EQUAL-NIL (POS-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM POS-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (POS-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM POS-LISTP-TLP-CONS (IMPLIES (AND (POSP X) (POS-LISTP Y)) (POS-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM POS-LISTP-TLP-DESTR (IMPLIES (AND (POS-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (POSP (CAR DEFDATA::L)) (POS-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM POS-LISTP-IMPLIES-TLP (IMPLIES (POS-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM POS-LISTP-TLP-APPEND (IMPLIES (AND (POS-LISTP X) (POS-LISTP Y)) (POS-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM POS-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (POS-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM POS-LISTP-TLP-CONS (IMPLIES (AND (POSP X) (POS-LISTP Y)) (POS-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM POS-LISTP-TLP-DESTR (IMPLIES (AND (POS-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (POSP (CAR DEFDATA::L)) (POS-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM POS-LISTP-IMPLIES-TLP (IMPLIES (POS-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM POS-LISTP-TLP-APPEND (IMPLIES (AND (POS-LISTP X) (POS-LISTP Y)) (POS-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (POS-LIST))))))) (133 RECORD-EXPANSION (DEFDATA INTEGER-LIST (LISTOF INTEGER) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM INTEGER-LISTP-TESTTHM (EQUAL (INTEGER-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (INTEGERP (CAR V)) (INTEGER-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-INTEGER-LIST)))) (DEFUNS (NTH-INTEGER-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-INTEGER X)) (LET ((X (NTH 1 INFXLST))) (NTH-INTEGER-LIST X)))))))) (IN-THEORY (DISABLE NTH-INTEGER-LIST)) (DEFUNS (NTH-INTEGER-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-INTEGER-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-INTEGER-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-INTEGER-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE INTEGER-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-INTEGER-LIST INTEGER-LISTP NIL NTH-INTEGER-LIST-UNIFORM T T LISTOF ((INTEGER-LIST (ONEOF NIL (CONS INTEGER INTEGER-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (INTEGER-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE INTEGER-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE INTEGER-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-INTEGER-LISTP-TAU-RULE-EQUAL-NIL (INTEGER-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-INTEGER-LISTP-TAU-RULE-EQUAL-NIL (INTEGER-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM INTEGER-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (INTEGER-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM INTEGER-LISTP-TLP-CONS (IMPLIES (AND (INTEGERP X) (INTEGER-LISTP Y)) (INTEGER-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM INTEGER-LISTP-TLP-DESTR (IMPLIES (AND (INTEGER-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (INTEGERP (CAR DEFDATA::L)) (INTEGER-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM INTEGER-LISTP-IMPLIES-TLP (IMPLIES (INTEGER-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM INTEGER-LISTP-TLP-APPEND (IMPLIES (AND (INTEGER-LISTP X) (INTEGER-LISTP Y)) (INTEGER-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM INTEGER-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (INTEGER-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM INTEGER-LISTP-TLP-CONS (IMPLIES (AND (INTEGERP X) (INTEGER-LISTP Y)) (INTEGER-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM INTEGER-LISTP-TLP-DESTR (IMPLIES (AND (INTEGER-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (INTEGERP (CAR DEFDATA::L)) (INTEGER-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM INTEGER-LISTP-IMPLIES-TLP (IMPLIES (INTEGER-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM INTEGER-LISTP-TLP-APPEND (IMPLIES (AND (INTEGER-LISTP X) (INTEGER-LISTP Y)) (INTEGER-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (INTEGER-LIST))))))) (134 RECORD-EXPANSION (DEFDATA RATIONAL-LIST (LISTOF RATIONAL) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM RATIONAL-LISTP-TESTTHM (EQUAL (RATIONAL-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (RATIONALP (CAR V)) (RATIONAL-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-RATIONAL-LIST)))) (DEFUNS (NTH-RATIONAL-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-RATIONAL X)) (LET ((X (NTH 1 INFXLST))) (NTH-RATIONAL-LIST X)))))))) (IN-THEORY (DISABLE NTH-RATIONAL-LIST)) (DEFUNS (NTH-RATIONAL-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-RATIONAL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-RATIONAL-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-RATIONAL-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE RATIONAL-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-RATIONAL-LIST RATIONAL-LISTP NIL NTH-RATIONAL-LIST-UNIFORM T T LISTOF ((RATIONAL-LIST (ONEOF NIL (CONS RATIONAL RATIONAL-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (RATIONAL-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-RATIONAL-LISTP-TAU-RULE-EQUAL-NIL (RATIONAL-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-RATIONAL-LISTP-TAU-RULE-EQUAL-NIL (RATIONAL-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM RATIONAL-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (RATIONAL-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM RATIONAL-LISTP-TLP-CONS (IMPLIES (AND (RATIONALP X) (RATIONAL-LISTP Y)) (RATIONAL-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM RATIONAL-LISTP-TLP-DESTR (IMPLIES (AND (RATIONAL-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (RATIONALP (CAR DEFDATA::L)) (RATIONAL-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM RATIONAL-LISTP-IMPLIES-TLP (IMPLIES (RATIONAL-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM RATIONAL-LISTP-TLP-APPEND (IMPLIES (AND (RATIONAL-LISTP X) (RATIONAL-LISTP Y)) (RATIONAL-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM RATIONAL-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (RATIONAL-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM RATIONAL-LISTP-TLP-CONS (IMPLIES (AND (RATIONALP X) (RATIONAL-LISTP Y)) (RATIONAL-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM RATIONAL-LISTP-TLP-DESTR (IMPLIES (AND (RATIONAL-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (RATIONALP (CAR DEFDATA::L)) (RATIONAL-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM RATIONAL-LISTP-IMPLIES-TLP (IMPLIES (RATIONAL-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM RATIONAL-LISTP-TLP-APPEND (IMPLIES (AND (RATIONAL-LISTP X) (RATIONAL-LISTP Y)) (RATIONAL-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (RATIONAL-LIST))))))) (135 RECORD-EXPANSION (DEFDATA COMPLEX-RATIONAL-LIST (LISTOF COMPLEX-RATIONAL) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (COMPLEX-RATIONAL-LISTP)))) (DEFUNS (COMPLEX-RATIONAL-LISTP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (COMPLEX-RATIONALP (CAR V)) (COMPLEX-RATIONAL-LISTP (CDR V)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-COMPLEX-RATIONAL-LIST)))) (DEFUNS (NTH-COMPLEX-RATIONAL-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-COMPLEX-RATIONAL X)) (LET ((X (NTH 1 INFXLST))) (NTH-COMPLEX-RATIONAL-LIST X)))))))) (IN-THEORY (DISABLE NTH-COMPLEX-RATIONAL-LIST)) (DEFUNS (NTH-COMPLEX-RATIONAL-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-COMPLEX-RATIONAL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-COMPLEX-RATIONAL-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-COMPLEX-RATIONAL-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE COMPLEX-RATIONAL-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-COMPLEX-RATIONAL-LIST COMPLEX-RATIONAL-LISTP NIL NTH-COMPLEX-RATIONAL-LIST-UNIFORM T T LISTOF ((COMPLEX-RATIONAL-LIST (ONEOF NIL (CONS COMPLEX-RATIONAL COMPLEX-RATIONAL-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (COMPLEX-RATIONAL-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE COMPLEX-RATIONAL-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE COMPLEX-RATIONAL-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-COMPLEX-RATIONAL-LISTP-TAU-RULE-EQUAL-NIL (COMPLEX-RATIONAL-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-COMPLEX-RATIONAL-LISTP-TAU-RULE-EQUAL-NIL (COMPLEX-RATIONAL-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM COMPLEX-RATIONAL-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (COMPLEX-RATIONAL-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM COMPLEX-RATIONAL-LISTP-TLP-CONS (IMPLIES (AND (COMPLEX-RATIONALP X) (COMPLEX-RATIONAL-LISTP Y)) (COMPLEX-RATIONAL-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM COMPLEX-RATIONAL-LISTP-TLP-DESTR (IMPLIES (AND (COMPLEX-RATIONAL-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (COMPLEX-RATIONALP (CAR DEFDATA::L)) (COMPLEX-RATIONAL-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM COMPLEX-RATIONAL-LISTP-IMPLIES-TLP (IMPLIES (COMPLEX-RATIONAL-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM COMPLEX-RATIONAL-LISTP-TLP-APPEND (IMPLIES (AND (COMPLEX-RATIONAL-LISTP X) (COMPLEX-RATIONAL-LISTP Y)) (COMPLEX-RATIONAL-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM COMPLEX-RATIONAL-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (COMPLEX-RATIONAL-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM COMPLEX-RATIONAL-LISTP-TLP-CONS (IMPLIES (AND (COMPLEX-RATIONALP X) (COMPLEX-RATIONAL-LISTP Y)) (COMPLEX-RATIONAL-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM COMPLEX-RATIONAL-LISTP-TLP-DESTR (IMPLIES (AND (COMPLEX-RATIONAL-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (COMPLEX-RATIONALP (CAR DEFDATA::L)) (COMPLEX-RATIONAL-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM COMPLEX-RATIONAL-LISTP-IMPLIES-TLP (IMPLIES (COMPLEX-RATIONAL-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM COMPLEX-RATIONAL-LISTP-TLP-APPEND (IMPLIES (AND (COMPLEX-RATIONAL-LISTP X) (COMPLEX-RATIONAL-LISTP Y)) (COMPLEX-RATIONAL-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (COMPLEX-RATIONAL-LIST))))))) (136 RECORD-EXPANSION (DEFDATA ACL2-NUMBER-LIST (LISTOF ACL2-NUMBER) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM ACL2-NUMBER-LISTP-TESTTHM (EQUAL (ACL2-NUMBER-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (ACL2-NUMBERP (CAR V)) (ACL2-NUMBER-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-ACL2-NUMBER-LIST)))) (DEFUNS (NTH-ACL2-NUMBER-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ACL2-NUMBER X)) (LET ((X (NTH 1 INFXLST))) (NTH-ACL2-NUMBER-LIST X)))))))) (IN-THEORY (DISABLE NTH-ACL2-NUMBER-LIST)) (DEFUNS (NTH-ACL2-NUMBER-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ACL2-NUMBER-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ACL2-NUMBER-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-ACL2-NUMBER-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE ACL2-NUMBER-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-ACL2-NUMBER-LIST ACL2-NUMBER-LISTP NIL NTH-ACL2-NUMBER-LIST-UNIFORM T T LISTOF ((ACL2-NUMBER-LIST (ONEOF NIL (CONS ACL2-NUMBER ACL2-NUMBER-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (ACL2-NUMBER-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-ACL2-NUMBER-LISTP-TAU-RULE-EQUAL-NIL (ACL2-NUMBER-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-ACL2-NUMBER-LISTP-TAU-RULE-EQUAL-NIL (ACL2-NUMBER-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM ACL2-NUMBER-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (ACL2-NUMBER-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ACL2-NUMBER-LISTP-TLP-CONS (IMPLIES (AND (ACL2-NUMBERP X) (ACL2-NUMBER-LISTP Y)) (ACL2-NUMBER-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ACL2-NUMBER-LISTP-TLP-DESTR (IMPLIES (AND (ACL2-NUMBER-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (ACL2-NUMBERP (CAR DEFDATA::L)) (ACL2-NUMBER-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ACL2-NUMBER-LISTP-IMPLIES-TLP (IMPLIES (ACL2-NUMBER-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM ACL2-NUMBER-LISTP-TLP-APPEND (IMPLIES (AND (ACL2-NUMBER-LISTP X) (ACL2-NUMBER-LISTP Y)) (ACL2-NUMBER-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM ACL2-NUMBER-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (ACL2-NUMBER-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ACL2-NUMBER-LISTP-TLP-CONS (IMPLIES (AND (ACL2-NUMBERP X) (ACL2-NUMBER-LISTP Y)) (ACL2-NUMBER-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ACL2-NUMBER-LISTP-TLP-DESTR (IMPLIES (AND (ACL2-NUMBER-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (ACL2-NUMBERP (CAR DEFDATA::L)) (ACL2-NUMBER-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ACL2-NUMBER-LISTP-IMPLIES-TLP (IMPLIES (ACL2-NUMBER-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM ACL2-NUMBER-LISTP-TLP-APPEND (IMPLIES (AND (ACL2-NUMBER-LISTP X) (ACL2-NUMBER-LISTP Y)) (ACL2-NUMBER-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (ACL2-NUMBER-LIST))))))) (137 RECORD-EXPANSION (DEFDATA BOOLEAN-LIST (LISTOF BOOLEAN) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM BOOLEAN-LISTP-TESTTHM (EQUAL (BOOLEAN-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (BOOLEANP (CAR V)) (BOOLEAN-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-BOOLEAN-LIST)))) (DEFUNS (NTH-BOOLEAN-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (MV-LET (FINXLST X) (DEFDATA::MULTIPLE-SWITCH-NAT (QUOTE (2)) (NFIX X)) (LET ((INFXLST (LIST (NFIX X)))) (CONS (LET ((X (NTH 0 FINXLST))) (NTH X *BOOLEAN-VALUES*)) (LET ((X (NTH 0 INFXLST))) (NTH-BOOLEAN-LIST X))))))))) (IN-THEORY (DISABLE NTH-BOOLEAN-LIST)) (DEFUNS (NTH-BOOLEAN-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (MV (NTH (MOD DEFDATA::SEED 2) *BOOLEAN-VALUES*) DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-BOOLEAN-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-BOOLEAN-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE BOOLEAN-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-BOOLEAN-LIST BOOLEAN-LISTP NIL NTH-BOOLEAN-LIST-UNIFORM T T LISTOF ((BOOLEAN-LIST (ONEOF NIL (CONS BOOLEAN BOOLEAN-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (BOOLEAN-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE BOOLEAN-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE BOOLEAN-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-BOOLEAN-LISTP-TAU-RULE-EQUAL-NIL (BOOLEAN-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-BOOLEAN-LISTP-TAU-RULE-EQUAL-NIL (BOOLEAN-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM BOOLEAN-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (BOOLEAN-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM BOOLEAN-LISTP-TLP-CONS (IMPLIES (AND (BOOLEANP X) (BOOLEAN-LISTP Y)) (BOOLEAN-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM BOOLEAN-LISTP-TLP-DESTR (IMPLIES (AND (BOOLEAN-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (BOOLEANP (CAR DEFDATA::L)) (BOOLEAN-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM BOOLEAN-LISTP-IMPLIES-TLP (IMPLIES (BOOLEAN-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM BOOLEAN-LISTP-TLP-APPEND (IMPLIES (AND (BOOLEAN-LISTP X) (BOOLEAN-LISTP Y)) (BOOLEAN-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM BOOLEAN-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (BOOLEAN-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM BOOLEAN-LISTP-TLP-CONS (IMPLIES (AND (BOOLEANP X) (BOOLEAN-LISTP Y)) (BOOLEAN-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM BOOLEAN-LISTP-TLP-DESTR (IMPLIES (AND (BOOLEAN-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (BOOLEANP (CAR DEFDATA::L)) (BOOLEAN-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM BOOLEAN-LISTP-IMPLIES-TLP (IMPLIES (BOOLEAN-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM BOOLEAN-LISTP-TLP-APPEND (IMPLIES (AND (BOOLEAN-LISTP X) (BOOLEAN-LISTP Y)) (BOOLEAN-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (BOOLEAN-LIST))))))) (138 RECORD-EXPANSION (DEFDATA SYMBOL-LIST (LISTOF SYMBOL) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM SYMBOL-LISTP-TESTTHM (EQUAL (SYMBOL-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (SYMBOLP (CAR V)) (SYMBOL-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-SYMBOL-LIST)))) (DEFUNS (NTH-SYMBOL-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-SYMBOL X)) (LET ((X (NTH 1 INFXLST))) (NTH-SYMBOL-LIST X)))))))) (IN-THEORY (DISABLE NTH-SYMBOL-LIST)) (DEFUNS (NTH-SYMBOL-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-SYMBOL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-SYMBOL-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-SYMBOL-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE SYMBOL-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-SYMBOL-LIST SYMBOL-LISTP NIL NTH-SYMBOL-LIST-UNIFORM T T LISTOF ((SYMBOL-LIST (ONEOF NIL (CONS SYMBOL SYMBOL-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (SYMBOL-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-SYMBOL-LISTP-TAU-RULE-EQUAL-NIL (SYMBOL-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-SYMBOL-LISTP-TAU-RULE-EQUAL-NIL (SYMBOL-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM SYMBOL-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (SYMBOL-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM SYMBOL-LISTP-TLP-CONS (IMPLIES (AND (SYMBOLP X) (SYMBOL-LISTP Y)) (SYMBOL-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM SYMBOL-LISTP-TLP-DESTR (IMPLIES (AND (SYMBOL-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (SYMBOLP (CAR DEFDATA::L)) (SYMBOL-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM SYMBOL-LISTP-IMPLIES-TLP (IMPLIES (SYMBOL-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM SYMBOL-LISTP-TLP-APPEND (IMPLIES (AND (SYMBOL-LISTP X) (SYMBOL-LISTP Y)) (SYMBOL-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM SYMBOL-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (SYMBOL-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM SYMBOL-LISTP-TLP-CONS (IMPLIES (AND (SYMBOLP X) (SYMBOL-LISTP Y)) (SYMBOL-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM SYMBOL-LISTP-TLP-DESTR (IMPLIES (AND (SYMBOL-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (SYMBOLP (CAR DEFDATA::L)) (SYMBOL-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM SYMBOL-LISTP-IMPLIES-TLP (IMPLIES (SYMBOL-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM SYMBOL-LISTP-TLP-APPEND (IMPLIES (AND (SYMBOL-LISTP X) (SYMBOL-LISTP Y)) (SYMBOL-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (SYMBOL-LIST))))))) (139 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE CHARACTER-LIST T NTH-CHARACTER-LIST CHARACTER-LISTP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-CHARACTER-LIST)) (DEFUND NTH-CHARACTER-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-CHARACTER-LIST N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CHARACTER-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CHARACTER-LIST CHARACTER-LISTP NIL NTH-CHARACTER-LIST-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE CHARACTER-LIST) (QUOTE (T NTH-CHARACTER-LIST CHARACTER-LISTP NIL NIL NIL CUSTOM))))))) (140 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE STANDARD-CHAR-LIST T NTH-STANDARD-CHAR-LIST STANDARD-CHAR-LISTP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-STANDARD-CHAR-LIST)) (DEFUND NTH-STANDARD-CHAR-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-STANDARD-CHAR-LIST N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE STANDARD-CHAR-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-STANDARD-CHAR-LIST STANDARD-CHAR-LISTP NIL NTH-STANDARD-CHAR-LIST-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-CHAR-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-CHAR-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE STANDARD-CHAR-LIST) (QUOTE (T NTH-STANDARD-CHAR-LIST STANDARD-CHAR-LISTP NIL NIL NIL CUSTOM))))))) (141 RECORD-EXPANSION (DEFDATA STRING-LIST (LISTOF STRING) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM STRING-LISTP-TESTTHM (EQUAL (STRING-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (STRINGP (CAR V)) (STRING-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-STRING-LIST)))) (DEFUNS (NTH-STRING-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-STRING X)) (LET ((X (NTH 1 INFXLST))) (NTH-STRING-LIST X)))))))) (IN-THEORY (DISABLE NTH-STRING-LIST)) (DEFUNS (NTH-STRING-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-STRING-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-STRING-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-STRING-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE STRING-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-STRING-LIST STRING-LISTP NIL NTH-STRING-LIST-UNIFORM T T LISTOF ((STRING-LIST (ONEOF NIL (CONS STRING STRING-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (STRING-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STRING-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STRING-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-STRING-LISTP-TAU-RULE-EQUAL-NIL (STRING-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-STRING-LISTP-TAU-RULE-EQUAL-NIL (STRING-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM STRING-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (STRING-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM STRING-LISTP-TLP-CONS (IMPLIES (AND (STRINGP X) (STRING-LISTP Y)) (STRING-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM STRING-LISTP-TLP-DESTR (IMPLIES (AND (STRING-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (STRINGP (CAR DEFDATA::L)) (STRING-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM STRING-LISTP-IMPLIES-TLP (IMPLIES (STRING-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM STRING-LISTP-TLP-APPEND (IMPLIES (AND (STRING-LISTP X) (STRING-LISTP Y)) (STRING-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM STRING-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (STRING-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM STRING-LISTP-TLP-CONS (IMPLIES (AND (STRINGP X) (STRING-LISTP Y)) (STRING-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM STRING-LISTP-TLP-DESTR (IMPLIES (AND (STRING-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (STRINGP (CAR DEFDATA::L)) (STRING-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM STRING-LISTP-IMPLIES-TLP (IMPLIES (STRING-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM STRING-LISTP-TLP-APPEND (IMPLIES (AND (STRING-LISTP X) (STRING-LISTP Y)) (STRING-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (STRING-LIST))))))) (142 RECORD-EXPANSION (VERIFY-TERMINATION ATOM-LISTP) (VALUE-TRIPLE :REDUNDANT)) (143 RECORD-EXPANSION (DEFDATA ATOM-LIST (LISTOF ATOM) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM ATOM-LISTP-TESTTHM (EQUAL (ATOM-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (ATOMP (CAR V)) (ATOM-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-ATOM-LIST)))) (DEFUNS (NTH-ATOM-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-ATOM-LIST X)))))))) (IN-THEORY (DISABLE NTH-ATOM-LIST)) (DEFUNS (NTH-ATOM-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ATOM-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-ATOM-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE ATOM-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-ATOM-LIST ATOM-LISTP NIL NTH-ATOM-LIST-UNIFORM T T LISTOF ((ATOM-LIST (ONEOF NIL (CONS ATOM ATOM-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (ATOM-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-ATOM-LISTP-TAU-RULE-EQUAL-NIL (ATOM-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-ATOM-LISTP-TAU-RULE-EQUAL-NIL (ATOM-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM ATOM-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (ATOM-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ATOM-LISTP-TLP-CONS (IMPLIES (AND (ATOMP X) (ATOM-LISTP Y)) (ATOM-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ATOM-LISTP-TLP-DESTR (IMPLIES (AND (ATOM-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (ATOMP (CAR DEFDATA::L)) (ATOM-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ATOM-LISTP-IMPLIES-TLP (IMPLIES (ATOM-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM ATOM-LISTP-TLP-APPEND (IMPLIES (AND (ATOM-LISTP X) (ATOM-LISTP Y)) (ATOM-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM ATOM-LISTP-SUBTYPE-OF-ATOM-LIST (IMPLIES (ATOM-LISTP X) (ATOM-LISTP X)) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ATOM-LISTP-TLP-CONS (IMPLIES (AND (ATOMP X) (ATOM-LISTP Y)) (ATOM-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ATOM-LISTP-TLP-DESTR (IMPLIES (AND (ATOM-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (ATOMP (CAR DEFDATA::L)) (ATOM-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM ATOM-LISTP-IMPLIES-TLP (IMPLIES (ATOM-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM ATOM-LISTP-TLP-APPEND (IMPLIES (AND (ATOM-LISTP X) (ATOM-LISTP Y)) (ATOM-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (ATOM-LIST))))))) (144 RECORD-EXPANSION (DEFDATA-SUBTYPE POS-LIST NAT-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::POS-LIST-IS-SUBTYPE-OF-NAT-LIST (IMPLIES (POS-LISTP X) (NAT-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE POS-LIST NAT-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE POS-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NAT-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (145 RECORD-EXPANSION (DEFDATA-SUBTYPE NAT-LIST INTEGER-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::NAT-LIST-IS-SUBTYPE-OF-INTEGER-LIST (IMPLIES (NAT-LISTP X) (INTEGER-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE NAT-LIST INTEGER-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE NAT-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE INTEGER-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (146 RECORD-EXPANSION (DEFDATA-SUBTYPE INTEGER-LIST RATIONAL-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::INTEGER-LIST-IS-SUBTYPE-OF-RATIONAL-LIST (IMPLIES (INTEGER-LISTP X) (RATIONAL-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE INTEGER-LIST RATIONAL-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE INTEGER-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (147 RECORD-EXPANSION (DEFDATA-SUBTYPE COMPLEX-RATIONAL-LIST ACL2-NUMBER-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::COMPLEX-RATIONAL-LIST-IS-SUBTYPE-OF-ACL2-NUMBER-LIST (IMPLIES (COMPLEX-RATIONAL-LISTP X) (ACL2-NUMBER-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE COMPLEX-RATIONAL-LIST ACL2-NUMBER-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE COMPLEX-RATIONAL-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (148 RECORD-EXPANSION (DEFDATA-SUBTYPE RATIONAL-LIST ACL2-NUMBER-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::RATIONAL-LIST-IS-SUBTYPE-OF-ACL2-NUMBER-LIST (IMPLIES (RATIONAL-LISTP X) (ACL2-NUMBER-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE RATIONAL-LIST ACL2-NUMBER-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE RATIONAL-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (149 RECORD-EXPANSION (DEFDATA-SUBTYPE ACL2-NUMBER-LIST ATOM-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::ACL2-NUMBER-LIST-IS-SUBTYPE-OF-ATOM-LIST (IMPLIES (ACL2-NUMBER-LISTP X) (ATOM-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE ACL2-NUMBER-LIST ATOM-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACL2-NUMBER-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (150 RECORD-EXPANSION (DEFDATA-SUBTYPE BOOLEAN-LIST SYMBOL-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::BOOLEAN-LIST-IS-SUBTYPE-OF-SYMBOL-LIST (IMPLIES (BOOLEAN-LISTP X) (SYMBOL-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE BOOLEAN-LIST SYMBOL-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE BOOLEAN-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (151 RECORD-EXPANSION (DEFDATA-SUBTYPE CHARACTER-LIST ATOM-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CHARACTER-LIST-IS-SUBTYPE-OF-ATOM-LIST (IMPLIES (CHARACTER-LISTP X) (ATOM-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE CHARACTER-LIST ATOM-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (152 RECORD-EXPANSION (DEFDATA-SUBTYPE STRING-LIST ATOM-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::STRING-LIST-IS-SUBTYPE-OF-ATOM-LIST (IMPLIES (STRING-LISTP X) (ATOM-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE STRING-LIST ATOM-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STRING-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (153 RECORD-EXPANSION (DEFDATA-SUBTYPE SYMBOL-LIST ATOM-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::SYMBOL-LIST-IS-SUBTYPE-OF-ATOM-LIST (IMPLIES (SYMBOL-LISTP X) (ATOM-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE SYMBOL-LIST ATOM-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (154 RECORD-EXPANSION (DEFDATA CONS-ATOM (CONS ATOM ATOM) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-ATOMP)))) (DEFUNS (CONS-ATOMP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (ATOMP (CAR V)) (ATOMP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-ATOM)))) (DEFUNS (NTH-CONS-ATOM (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-ATOM X)))))) (IN-THEORY (DISABLE NTH-CONS-ATOM)) (DEFUNS (NTH-CONS-ATOM-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-ATOM-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-ATOM) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-ATOM CONS-ATOMP NIL NTH-CONS-ATOM-UNIFORM NIL T PRODUCT ((CONS-ATOM (CONS ATOM ATOM))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-ATOM)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-ATOM) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-ATOM) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-ATOM))))))) (155 RECORD-EXPANSION (DEFDATA-DISJOINT CONS-ATOM ATOM) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CONS-ATOM-IS-DISJOINT-WITH-ATOM (IMPLIES (CONS-ATOMP X) (NOT (ATOMP X))) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :DISJOINT CONS-ATOM ATOM) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :DISJOINT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-ATOM) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (156 RECORD-EXPANSION (DEFDATA CONS-CA-CA (CONS CONS-ATOM CONS-ATOM) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-CA-CAP)))) (DEFUNS (CONS-CA-CAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (CONS-ATOMP (CAR V)) (CONS-ATOMP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-CA-CA)))) (DEFUNS (NTH-CONS-CA-CA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-CONS-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-ATOM X)))))) (IN-THEORY (DISABLE NTH-CONS-CA-CA)) (DEFUNS (NTH-CONS-CA-CA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-CA-CA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-CA-CA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-CA-CA CONS-CA-CAP NIL NTH-CONS-CA-CA-UNIFORM NIL T PRODUCT ((CONS-CA-CA (CONS CONS-ATOM CONS-ATOM))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-CA-CA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CA-CA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CA-CA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-CA-CA))))))) (157 RECORD-EXPANSION (DEFDATA CONS-CCA-CCA (CONS CONS-CA-CA CONS-CA-CA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-CCA-CCAP)))) (DEFUNS (CONS-CCA-CCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (CONS-CA-CAP (CAR V)) (CONS-CA-CAP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-CCA-CCA)))) (DEFUNS (NTH-CONS-CCA-CCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-CONS-CA-CA X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CA-CA X)))))) (IN-THEORY (DISABLE NTH-CONS-CCA-CCA)) (DEFUNS (NTH-CONS-CCA-CCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-CONS-CA-CA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CA-CA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-CCA-CCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-CCA-CCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-CCA-CCA CONS-CCA-CCAP NIL NTH-CONS-CCA-CCA-UNIFORM NIL T PRODUCT ((CONS-CCA-CCA (CONS CONS-CA-CA CONS-CA-CA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-CCA-CCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CCA-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CCA-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-CCA-CCA))))))) (159 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE ALL T NTH-ALL ALLP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-ALL)) (DEFUND NTH-ALL-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-ALL N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE ALL) (QUOTE (DEFDATA::TYPES-INFO% T NTH-ALL ALLP NIL NTH-ALL-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE ALL) (QUOTE (T NTH-ALL ALLP NIL NIL NIL CUSTOM))))))) (164 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE EMPTY 0 *EMPTY-VALUES* EMPTYP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-EMPTY)) (DEFUND NTH-EMPTY-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-EMPTY N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE EMPTY) (QUOTE (DEFDATA::TYPES-INFO% 0 *EMPTY-VALUES* EMPTYP NIL NTH-EMPTY-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE EMPTY) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE EMPTY) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE EMPTY) (QUOTE (0 *EMPTY-VALUES* EMPTYP NIL NIL NIL CUSTOM))))))) (165 RECORD-EXPANSION (DEFDATA CONS (CONS ALL ALL) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM CONSP-TESTTHM (EQUAL (CONSP V) (AND (CONSP V) (ALLP (CAR V)) (ALLP (CDR V)))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS)))) (DEFUNS (NTH-CONS (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ALL X)) (LET ((X (NTH 1 INFXLST))) (NTH-ALL X)))))) (IN-THEORY (DISABLE NTH-CONS)) (DEFUNS (NTH-CONS-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS CONSP NIL NTH-CONS-UNIFORM NIL T PRODUCT ((CONS (CONS ALL ALL))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS))))))) (166 RECORD-EXPANSION (DEFDATA ACONS (CONS (CONS ALL ALL) ALL) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM ACONSP-TESTTHM (EQUAL (ACONSP V) (AND (CONSP V) (AND (CONSP (CAR V)) (ALLP (CAR (CAR V))) (ALLP (CDR (CAR V)))) (ALLP (CDR V)))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-ACONS)))) (DEFUNS (NTH-ACONS (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ALL X)) (LET ((X (NTH 1 INFXLST))) (NTH-ALL X))))) (LET ((X (NTH 1 INFXLST))) (NTH-ALL X)))))) (IN-THEORY (DISABLE NTH-ACONS)) (DEFUNS (NTH-ACONS-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-ACONS-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE ACONS) (QUOTE (DEFDATA::TYPES-INFO% T NTH-ACONS ACONSP NIL NTH-ACONS-UNIFORM NIL T PRODUCT ((ACONS (CONS (CONS ALL ALL) ALL))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (ACONS)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (ACONS))))))) (167 RECORD-EXPANSION (DEFDATA LIST (ONEOF CONS NIL) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM LISTP-TESTTHM (EQUAL (LISTP V) (OR (CONSP V) (EQ V (QUOTE NIL)))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-LIST)))) (DEFUNS (NTH-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (NTH-CONS X))))) (IN-THEORY (DISABLE NTH-LIST)) (DEFUNS (NTH-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-INDEX-SEED 2 DEFDATA::SEED) (CASE N (0 (MV (QUOTE NIL) DEFDATA::SEED)) (OTHERWISE (NTH-CONS-UNIFORM DEFDATA::M DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE UNION))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-LIST LISTP NIL NTH-LIST-UNIFORM NIL T UNION ((LIST (ONEOF CONS NIL))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (DEFDATA-SUBTYPE CONS LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CONS-IS-SUBTYPE-OF-LIST (IMPLIES (CONSP X) (LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE CONS LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-LISTP-TAU-RULE-EQUAL-NIL (LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-LISTP-TAU-RULE-EQUAL-NIL (LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (LIST))))))) (169 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE TRUE-LIST T NTH-TRUE-LIST TRUE-LISTP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-TRUE-LIST)) (DEFUND NTH-TRUE-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-TRUE-LIST N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE TRUE-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-TRUE-LIST TRUE-LISTP NIL NTH-TRUE-LIST-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE TRUE-LIST) (QUOTE (T NTH-TRUE-LIST TRUE-LISTP NIL NIL NIL CUSTOM))))))) (170 RECORD-EXPANSION (DEFDATA ALIST (LISTOF (CONS ALL ALL)) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM ALISTP-TESTTHM (EQUAL (ALISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (AND (CONSP (CAR V)) (ALLP (CAR (CAR V))) (ALLP (CDR (CAR V)))) (ALISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-ALIST)))) (DEFUNS (NTH-ALIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ALL X)) (LET ((X (NTH 1 INFXLST))) (NTH-ALL X))))) (LET ((X (NTH 1 INFXLST))) (NTH-ALIST X)))))))) (IN-THEORY (DISABLE NTH-ALIST)) (DEFUNS (NTH-ALIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ALIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-ALIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE ALIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-ALIST ALISTP NIL NTH-ALIST-UNIFORM T T LISTOF ((ALIST (ONEOF NIL (CONS (CONS ALL ALL) ALIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (ALIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (DEFDATA-SUBTYPE ALIST TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::ALIST-IS-SUBTYPE-OF-TRUE-LIST (IMPLIES (ALISTP X) (TRUE-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE ALIST TRUE-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-ALISTP-TAU-RULE-EQUAL-NIL (ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-ALISTP-TAU-RULE-EQUAL-NIL (ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM ALISTP-IMPLIES-TLP (IMPLIES (ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM ALISTP-TLP-APPEND (IMPLIES (AND (ALISTP X) (ALISTP Y)) (ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM ALISTP-IMPLIES-TLP (IMPLIES (ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM ALISTP-TLP-APPEND (IMPLIES (AND (ALISTP X) (ALISTP Y)) (ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (ALIST))))))) (171 RECORD-EXPANSION (DEFDATA SYMBOL-ALIST (LISTOF (CONS SYMBOL ALL)) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM SYMBOL-ALISTP-TESTTHM (EQUAL (SYMBOL-ALISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (AND (CONSP (CAR V)) (SYMBOLP (CAR (CAR V))) (ALLP (CDR (CAR V)))) (SYMBOL-ALISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-SYMBOL-ALIST)))) (DEFUNS (NTH-SYMBOL-ALIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-SYMBOL X)) (LET ((X (NTH 1 INFXLST))) (NTH-ALL X))))) (LET ((X (NTH 1 INFXLST))) (NTH-SYMBOL-ALIST X)))))))) (IN-THEORY (DISABLE NTH-SYMBOL-ALIST)) (DEFUNS (NTH-SYMBOL-ALIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (MV-LET (VAL1 DEFDATA::SEED) (NTH-SYMBOL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (MV-LET (VAL2 DEFDATA::SEED) (NTH-SYMBOL-ALIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-SYMBOL-ALIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE SYMBOL-ALIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-SYMBOL-ALIST SYMBOL-ALISTP NIL NTH-SYMBOL-ALIST-UNIFORM T T LISTOF ((SYMBOL-ALIST (ONEOF NIL (CONS (CONS SYMBOL ALL) SYMBOL-ALIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (SYMBOL-ALIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL-ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL-ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (DEFDATA-SUBTYPE SYMBOL-ALIST TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::SYMBOL-ALIST-IS-SUBTYPE-OF-TRUE-LIST (IMPLIES (SYMBOL-ALISTP X) (TRUE-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE SYMBOL-ALIST TRUE-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL-ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-SYMBOL-ALISTP-TAU-RULE-EQUAL-NIL (SYMBOL-ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-SYMBOL-ALISTP-TAU-RULE-EQUAL-NIL (SYMBOL-ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM SYMBOL-ALISTP-IMPLIES-TLP (IMPLIES (SYMBOL-ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM SYMBOL-ALISTP-TLP-APPEND (IMPLIES (AND (SYMBOL-ALISTP X) (SYMBOL-ALISTP Y)) (SYMBOL-ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM SYMBOL-ALISTP-IMPLIES-TLP (IMPLIES (SYMBOL-ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM SYMBOL-ALISTP-TLP-APPEND (IMPLIES (AND (SYMBOL-ALISTP X) (SYMBOL-ALISTP Y)) (SYMBOL-ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (SYMBOL-ALIST))))))) (172 RECORD-EXPANSION (VERIFY-TERMINATION CHARACTER-ALISTP) (DEFUN CHARACTER-ALISTP (X) ":Doc-Section ACL2::ACL2-built-ins

  recognizer for association lists with characters as keys~/

  ~c[(Character-alistp x)] is true if and only if ~c[x] is a list of pairs
  of the form ~c[(cons key val)] where ~c[key] is a ~ilc[characterp].~/~/" (DECLARE (XARGS :GUARD T)) (COND ((ATOM X) (EQ X NIL)) (T (AND (CONSP (CAR X)) (CHARACTERP (CAR (CAR X))) (CHARACTER-ALISTP (CDR X))))))) (173 RECORD-EXPANSION (DEFDATA CHARACTER-ALIST (LISTOF (CONS CHARACTER ALL)) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM CHARACTER-ALISTP-TESTTHM (EQUAL (CHARACTER-ALISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (AND (CONSP (CAR V)) (CHARACTERP (CAR (CAR V))) (ALLP (CDR (CAR V)))) (CHARACTER-ALISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CHARACTER-ALIST)))) (DEFUNS (NTH-CHARACTER-ALIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (MV-LET (FINXLST X) (DEFDATA::MULTIPLE-SWITCH-NAT (QUOTE (62)) (NFIX X)) (LET ((INFXLST (LIST (NFIX X)))) (CONS (LET ((X (NTH 0 FINXLST))) (NTH X *CHARACTER-VALUES*)) (LET ((X (NTH 0 INFXLST))) (NTH-ALL X)))))) (LET ((X (NTH 1 INFXLST))) (NTH-CHARACTER-ALIST X)))))))) (IN-THEORY (DISABLE NTH-CHARACTER-ALIST)) (DEFUNS (NTH-CHARACTER-ALIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (MV-LET (VAL1 DEFDATA::SEED) (MV (NTH (MOD DEFDATA::SEED 62) *CHARACTER-VALUES*) DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CHARACTER-ALIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-CHARACTER-ALIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CHARACTER-ALIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CHARACTER-ALIST CHARACTER-ALISTP NIL NTH-CHARACTER-ALIST-UNIFORM T T LISTOF ((CHARACTER-ALIST (ONEOF NIL (CONS (CONS CHARACTER ALL) CHARACTER-ALIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CHARACTER-ALIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER-ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER-ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (DEFDATA-SUBTYPE CHARACTER-ALIST TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CHARACTER-ALIST-IS-SUBTYPE-OF-TRUE-LIST (IMPLIES (CHARACTER-ALISTP X) (TRUE-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE CHARACTER-ALIST TRUE-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER-ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-CHARACTER-ALISTP-TAU-RULE-EQUAL-NIL (CHARACTER-ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-CHARACTER-ALISTP-TAU-RULE-EQUAL-NIL (CHARACTER-ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM CHARACTER-ALISTP-IMPLIES-TLP (IMPLIES (CHARACTER-ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM CHARACTER-ALISTP-TLP-APPEND (IMPLIES (AND (CHARACTER-ALISTP X) (CHARACTER-ALISTP Y)) (CHARACTER-ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM CHARACTER-ALISTP-IMPLIES-TLP (IMPLIES (CHARACTER-ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM CHARACTER-ALISTP-TLP-APPEND (IMPLIES (AND (CHARACTER-ALISTP X) (CHARACTER-ALISTP Y)) (CHARACTER-ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CHARACTER-ALIST))))))) (174 RECORD-EXPANSION (DEFDATA R-SYMBOL-ALIST (LISTOF (CONS ALL SYMBOL)) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM R-SYMBOL-ALISTP-TESTTHM (EQUAL (R-SYMBOL-ALISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (AND (CONSP (CAR V)) (ALLP (CAR (CAR V))) (SYMBOLP (CDR (CAR V)))) (R-SYMBOL-ALISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-R-SYMBOL-ALIST)))) (DEFUNS (NTH-R-SYMBOL-ALIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ALL X)) (LET ((X (NTH 1 INFXLST))) (NTH-SYMBOL X))))) (LET ((X (NTH 1 INFXLST))) (NTH-R-SYMBOL-ALIST X)))))))) (IN-THEORY (DISABLE NTH-R-SYMBOL-ALIST)) (DEFUNS (NTH-R-SYMBOL-ALIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-SYMBOL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (MV-LET (VAL2 DEFDATA::SEED) (NTH-R-SYMBOL-ALIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-R-SYMBOL-ALIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE R-SYMBOL-ALIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-R-SYMBOL-ALIST R-SYMBOL-ALISTP NIL NTH-R-SYMBOL-ALIST-UNIFORM T T LISTOF ((R-SYMBOL-ALIST (ONEOF NIL (CONS (CONS ALL SYMBOL) R-SYMBOL-ALIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (R-SYMBOL-ALIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE R-SYMBOL-ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE R-SYMBOL-ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (DEFDATA-SUBTYPE R-SYMBOL-ALIST TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::R-SYMBOL-ALIST-IS-SUBTYPE-OF-TRUE-LIST (IMPLIES (R-SYMBOL-ALISTP X) (TRUE-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE R-SYMBOL-ALIST TRUE-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE R-SYMBOL-ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-R-SYMBOL-ALISTP-TAU-RULE-EQUAL-NIL (R-SYMBOL-ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-R-SYMBOL-ALISTP-TAU-RULE-EQUAL-NIL (R-SYMBOL-ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM R-SYMBOL-ALISTP-IMPLIES-TLP (IMPLIES (R-SYMBOL-ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM R-SYMBOL-ALISTP-TLP-APPEND (IMPLIES (AND (R-SYMBOL-ALISTP X) (R-SYMBOL-ALISTP Y)) (R-SYMBOL-ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM R-SYMBOL-ALISTP-IMPLIES-TLP (IMPLIES (R-SYMBOL-ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM R-SYMBOL-ALISTP-TLP-APPEND (IMPLIES (AND (R-SYMBOL-ALISTP X) (R-SYMBOL-ALISTP Y)) (R-SYMBOL-ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (R-SYMBOL-ALIST))))))) (175 RECORD-EXPANSION (DEFDATA STANDARD-STRING-ALIST (LISTOF (CONS STANDARD-STRING ALL)) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM STANDARD-STRING-ALISTP-TESTTHM (EQUAL (STANDARD-STRING-ALISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (AND (CONSP (CAR V)) (STANDARD-STRINGP (CAR (CAR V))) (ALLP (CDR (CAR V)))) (STANDARD-STRING-ALISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-STANDARD-STRING-ALIST)))) (DEFUNS (NTH-STANDARD-STRING-ALIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-STANDARD-STRING X)) (LET ((X (NTH 1 INFXLST))) (NTH-ALL X))))) (LET ((X (NTH 1 INFXLST))) (NTH-STANDARD-STRING-ALIST X)))))))) (IN-THEORY (DISABLE NTH-STANDARD-STRING-ALIST)) (DEFUNS (NTH-STANDARD-STRING-ALIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (MV-LET (VAL1 DEFDATA::SEED) (NTH-STANDARD-STRING-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (MV-LET (VAL2 DEFDATA::SEED) (NTH-STANDARD-STRING-ALIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-STANDARD-STRING-ALIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE STANDARD-STRING-ALIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-STANDARD-STRING-ALIST STANDARD-STRING-ALISTP NIL NTH-STANDARD-STRING-ALIST-UNIFORM T T LISTOF ((STANDARD-STRING-ALIST (ONEOF NIL (CONS (CONS STANDARD-STRING ALL) STANDARD-STRING-ALIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (STANDARD-STRING-ALIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-STRING-ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-STRING-ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (DEFDATA-SUBTYPE STANDARD-STRING-ALIST TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::STANDARD-STRING-ALIST-IS-SUBTYPE-OF-TRUE-LIST (IMPLIES (STANDARD-STRING-ALISTP X) (TRUE-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE STANDARD-STRING-ALIST TRUE-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-STRING-ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-STANDARD-STRING-ALISTP-TAU-RULE-EQUAL-NIL (STANDARD-STRING-ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-STANDARD-STRING-ALISTP-TAU-RULE-EQUAL-NIL (STANDARD-STRING-ALISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM STANDARD-STRING-ALISTP-IMPLIES-TLP (IMPLIES (STANDARD-STRING-ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM STANDARD-STRING-ALISTP-TLP-APPEND (IMPLIES (AND (STANDARD-STRING-ALISTP X) (STANDARD-STRING-ALISTP Y)) (STANDARD-STRING-ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM STANDARD-STRING-ALISTP-IMPLIES-TLP (IMPLIES (STANDARD-STRING-ALISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM STANDARD-STRING-ALISTP-TLP-APPEND (IMPLIES (AND (STANDARD-STRING-ALISTP X) (STANDARD-STRING-ALISTP Y)) (STANDARD-STRING-ALISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (STANDARD-STRING-ALIST))))))) (176 RECORD-EXPANSION (DEFDATA-SUBTYPE SYMBOL-ALIST ALIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::SYMBOL-ALIST-IS-SUBTYPE-OF-ALIST (IMPLIES (SYMBOL-ALISTP X) (ALISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE SYMBOL-ALIST ALIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE SYMBOL-ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (177 RECORD-EXPANSION (DEFDATA-SUBTYPE CHARACTER-ALIST ALIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CHARACTER-ALIST-IS-SUBTYPE-OF-ALIST (IMPLIES (CHARACTER-ALISTP X) (ALISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE CHARACTER-ALIST ALIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CHARACTER-ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (178 RECORD-EXPANSION (DEFDATA-SUBTYPE R-SYMBOL-ALIST ALIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::R-SYMBOL-ALIST-IS-SUBTYPE-OF-ALIST (IMPLIES (R-SYMBOL-ALISTP X) (ALISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE R-SYMBOL-ALIST ALIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE R-SYMBOL-ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (179 RECORD-EXPANSION (DEFDATA-SUBTYPE STANDARD-STRING-ALIST ALIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::STANDARD-STRING-ALIST-IS-SUBTYPE-OF-ALIST (IMPLIES (STANDARD-STRING-ALISTP X) (ALISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE STANDARD-STRING-ALIST ALIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE STANDARD-STRING-ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (181 RECORD-EXPANSION (DEFDATA TRUE-LIST-LIST (LISTOF TRUE-LIST) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (DEFTHM TRUE-LIST-LISTP-TESTTHM (EQUAL (TRUE-LIST-LISTP V) (OR (EQ V (QUOTE NIL)) (AND (CONSP V) (TRUE-LISTP (CAR V)) (TRUE-LIST-LISTP (CDR V))))) :RULE-CLASSES NIL) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-TRUE-LIST-LIST)))) (DEFUNS (NTH-TRUE-LIST-LIST (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (IF (OR (NOT (INTEGERP X)) (< X 1)) (QUOTE NIL) (LET ((X (- X 1))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-TRUE-LIST X)) (LET ((X (NTH 1 INFXLST))) (NTH-TRUE-LIST-LIST X)))))))) (IN-THEORY (DISABLE NTH-TRUE-LIST-LIST)) (DEFUNS (NTH-TRUE-LIST-LIST-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (IF (OR (ZP DEFDATA::M) (NOT (UNSIGNED-BYTE-P 31 DEFDATA::SEED))) (MV (QUOTE NIL) DEFDATA::SEED) (LET ((DEFDATA::M (1- DEFDATA::M))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-TRUE-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-TRUE-LIST-LIST-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-TRUE-LIST-LIST-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE LISTOF))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE TRUE-LIST-LIST) (QUOTE (DEFDATA::TYPES-INFO% T NTH-TRUE-LIST-LIST TRUE-LIST-LISTP NIL NTH-TRUE-LIST-LIST-UNIFORM T T LISTOF ((TRUE-LIST-LIST (ONEOF NIL (CONS TRUE-LIST TRUE-LIST-LIST)))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (TRUE-LIST-LIST)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (DEFDATA-SUBTYPE TRUE-LIST-LIST TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::TRUE-LIST-LIST-IS-SUBTYPE-OF-TRUE-LIST (IMPLIES (TRUE-LIST-LISTP X) (TRUE-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE TRUE-LIST-LIST TRUE-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (VALUE-TRIPLE (DEFDATA::CW? (GET-ACL2S-DEFDATA-VERBOSE) "~|Submitting ~x0~|" (QUOTE (DEFTHM EVAL-TRUE-LIST-LISTP-TAU-RULE-EQUAL-NIL (TRUE-LIST-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM)))) (DEFTHM EVAL-TRUE-LIST-LISTP-TAU-RULE-EQUAL-NIL (TRUE-LIST-LISTP NIL) :RULE-CLASSES :TAU-SYSTEM) (VALUE-TRIPLE (PROGN$ (DEFDATA::CW? T "Submitting list type lemmas... ~%") (DEFDATA::CW? T "~x0~%" (QUOTE ((DEFTHM TRUE-LIST-LISTP-TLP-CONS (IMPLIES (AND (TRUE-LISTP X) (TRUE-LIST-LISTP Y)) (TRUE-LIST-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM TRUE-LIST-LISTP-TLP-DESTR (IMPLIES (AND (TRUE-LIST-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (TRUE-LISTP (CAR DEFDATA::L)) (TRUE-LIST-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM TRUE-LIST-LISTP-IMPLIES-TLP (IMPLIES (TRUE-LIST-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM TRUE-LIST-LISTP-TLP-APPEND (IMPLIES (AND (TRUE-LIST-LISTP X) (TRUE-LIST-LISTP Y)) (TRUE-LIST-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1)))))))) (DEFTHM TRUE-LIST-LISTP-TLP-CONS (IMPLIES (AND (TRUE-LISTP X) (TRUE-LIST-LISTP Y)) (TRUE-LIST-LISTP (CONS X Y))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM TRUE-LIST-LISTP-TLP-DESTR (IMPLIES (AND (TRUE-LIST-LISTP DEFDATA::L) (NOT (EQUAL DEFDATA::L NIL))) (AND (TRUE-LISTP (CAR DEFDATA::L)) (TRUE-LIST-LISTP (CDR DEFDATA::L)))) :RULE-CLASSES :TAU-SYSTEM) (DEFTHM TRUE-LIST-LISTP-IMPLIES-TLP (IMPLIES (TRUE-LIST-LISTP X) (TRUE-LISTP X)) :RULE-CLASSES ((:FORWARD-CHAINING) (:COMPOUND-RECOGNIZER) (:REWRITE :BACKCHAIN-LIMIT-LST 1))) (DEFTHM TRUE-LIST-LISTP-TLP-APPEND (IMPLIES (AND (TRUE-LIST-LISTP X) (TRUE-LIST-LISTP Y)) (TRUE-LIST-LISTP (APPEND X Y))) :HINTS (("Goal" :INDUCT (TRUE-LISTP X))) :RULE-CLASSES ((:REWRITE :BACKCHAIN-LIMIT-LST 1))) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (TRUE-LIST-LIST))))))) (182 RECORD-EXPANSION (DEFDATA-SUBTYPE TRUE-LIST-LIST TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (VALUE-TRIPLE :REDUNDANT)))) (183 RECORD-EXPANSION (DEFDATA-SUBTYPE ACONS CONS) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::ACONS-IS-SUBTYPE-OF-CONS (IMPLIES (ACONSP X) (CONSP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE ACONS CONS) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ACONS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (184 RECORD-EXPANSION (DEFDATA-SUBTYPE CONS ALL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (VALUE-TRIPLE :REDUNDANT)))) (185 RECORD-EXPANSION (DEFDATA-SUBTYPE ATOM ALL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (VALUE-TRIPLE :REDUNDANT)))) (186 RECORD-EXPANSION (DEFDATA-SUBTYPE ATOM-LIST TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::ATOM-LIST-IS-SUBTYPE-OF-TRUE-LIST (IMPLIES (ATOM-LISTP X) (TRUE-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE ATOM-LIST TRUE-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (187 RECORD-EXPANSION (DEFDATA-SUBTYPE ALIST TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (VALUE-TRIPLE :REDUNDANT)))) (188 RECORD-EXPANSION (DEFDATA-SUBTYPE LIST ALL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (VALUE-TRIPLE :REDUNDANT)))) (189 RECORD-EXPANSION (DEFDATA-SUBTYPE TRUE-LIST LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::TRUE-LIST-IS-SUBTYPE-OF-LIST (IMPLIES (TRUE-LISTP X) (LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE TRUE-LIST LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (190 RECORD-EXPANSION (DEFDATA-SUBTYPE CONS Z) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::CONS-IS-SUBTYPE-OF-Z (IMPLIES (CONSP X) (ZP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE CONS Z) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (191 RECORD-EXPANSION (DEFDATA-SUBTYPE LIST Z) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::LIST-IS-SUBTYPE-OF-Z (IMPLIES (LISTP X) (ZP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE LIST Z) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE Z) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (194 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE ALL-BUT-ZERO-NIL-T T NTH-ALL-BUT-ZERO-NIL-T ALL-BUT-ZERO-NIL-TP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-ALL-BUT-ZERO-NIL-T)) (DEFUND NTH-ALL-BUT-ZERO-NIL-T-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-ALL-BUT-ZERO-NIL-T N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE ALL-BUT-ZERO-NIL-T) (QUOTE (DEFDATA::TYPES-INFO% T NTH-ALL-BUT-ZERO-NIL-T ALL-BUT-ZERO-NIL-TP NIL NTH-ALL-BUT-ZERO-NIL-T-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALL-BUT-ZERO-NIL-T) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ALL-BUT-ZERO-NIL-T) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE ALL-BUT-ZERO-NIL-T) (QUOTE (T NTH-ALL-BUT-ZERO-NIL-T ALL-BUT-ZERO-NIL-TP NIL NIL NIL CUSTOM))))))) (196 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE WF-KEY T NTH-WF-KEY WF-KEYP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-WF-KEY)) (DEFUND NTH-WF-KEY-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-WF-KEY N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE WF-KEY) (QUOTE (DEFDATA::TYPES-INFO% T NTH-WF-KEY WF-KEYP NIL NTH-WF-KEY-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE WF-KEY) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE WF-KEY) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE WF-KEY) (QUOTE (T NTH-WF-KEY WF-KEYP NIL NIL NIL CUSTOM))))))) (198 RECORD-EXPANSION (DEFDATA-SUBTYPE ALL-BUT-ZERO-NIL-T ALL) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (VALUE-TRIPLE :REDUNDANT)))) (199 RECORD-EXPANSION (DEFDATA CONS-CCCCA-CCCCA (CONS CONS-CCA-CCA CONS-CCA-CCA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-CCCCA-CCCCAP)))) (DEFUNS (CONS-CCCCA-CCCCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (CONS-CCA-CCAP (CAR V)) (CONS-CCA-CCAP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-CCCCA-CCCCA)))) (DEFUNS (NTH-CONS-CCCCA-CCCCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-CONS-CCA-CCA X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CCA-CCA X)))))) (IN-THEORY (DISABLE NTH-CONS-CCCCA-CCCCA)) (DEFUNS (NTH-CONS-CCCCA-CCCCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-CONS-CCA-CCA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CCA-CCA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-CCCCA-CCCCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-CCCCA-CCCCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-CCCCA-CCCCA CONS-CCCCA-CCCCAP NIL NTH-CONS-CCCCA-CCCCA-UNIFORM NIL T PRODUCT ((CONS-CCCCA-CCCCA (CONS CONS-CCA-CCA CONS-CCA-CCA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-CCCCA-CCCCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CCCCA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CCCCA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-CCCCA-CCCCA))))))) (200 RECORD-EXPANSION (DEFDATA CONS-A-CA (CONS ATOM CONS-ATOM) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-A-CAP)))) (DEFUNS (CONS-A-CAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (ATOMP (CAR V)) (CONS-ATOMP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-A-CA)))) (DEFUNS (NTH-CONS-A-CA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-ATOM X)))))) (IN-THEORY (DISABLE NTH-CONS-A-CA)) (DEFUNS (NTH-CONS-A-CA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-A-CA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-A-CA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-A-CA CONS-A-CAP NIL NTH-CONS-A-CA-UNIFORM NIL T PRODUCT ((CONS-A-CA (CONS ATOM CONS-ATOM))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-A-CA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-A-CA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-A-CA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-A-CA))))))) (201 RECORD-EXPANSION (DEFDATA CONS-A-CCA (CONS ATOM CONS-CA-CA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-A-CCAP)))) (DEFUNS (CONS-A-CCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (ATOMP (CAR V)) (CONS-CA-CAP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-A-CCA)))) (DEFUNS (NTH-CONS-A-CCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CA-CA X)))))) (IN-THEORY (DISABLE NTH-CONS-A-CCA)) (DEFUNS (NTH-CONS-A-CCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CA-CA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-A-CCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-A-CCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-A-CCA CONS-A-CCAP NIL NTH-CONS-A-CCA-UNIFORM NIL T PRODUCT ((CONS-A-CCA (CONS ATOM CONS-CA-CA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-A-CCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-A-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-A-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-A-CCA))))))) (202 RECORD-EXPANSION (DEFDATA CONS-A-CCCCA (CONS ATOM CONS-CCA-CCA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-A-CCCCAP)))) (DEFUNS (CONS-A-CCCCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (ATOMP (CAR V)) (CONS-CCA-CCAP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-A-CCCCA)))) (DEFUNS (NTH-CONS-A-CCCCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CCA-CCA X)))))) (IN-THEORY (DISABLE NTH-CONS-A-CCCCA)) (DEFUNS (NTH-CONS-A-CCCCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CCA-CCA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-A-CCCCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-A-CCCCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-A-CCCCA CONS-A-CCCCAP NIL NTH-CONS-A-CCCCA-UNIFORM NIL T PRODUCT ((CONS-A-CCCCA (CONS ATOM CONS-CCA-CCA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-A-CCCCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-A-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-A-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-A-CCCCA))))))) (203 RECORD-EXPANSION (DEFDATA CONS-CA-CCA (CONS CONS-ATOM CONS-CA-CA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-CA-CCAP)))) (DEFUNS (CONS-CA-CCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (CONS-ATOMP (CAR V)) (CONS-CA-CAP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-CA-CCA)))) (DEFUNS (NTH-CONS-CA-CCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-CONS-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CA-CA X)))))) (IN-THEORY (DISABLE NTH-CONS-CA-CCA)) (DEFUNS (NTH-CONS-CA-CCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CA-CA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-CA-CCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-CA-CCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-CA-CCA CONS-CA-CCAP NIL NTH-CONS-CA-CCA-UNIFORM NIL T PRODUCT ((CONS-CA-CCA (CONS CONS-ATOM CONS-CA-CA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-CA-CCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CA-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CA-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-CA-CCA))))))) (204 RECORD-EXPANSION (DEFDATA CONS-CA-CCCCA (CONS CONS-ATOM CONS-CCA-CCA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-CA-CCCCAP)))) (DEFUNS (CONS-CA-CCCCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (CONS-ATOMP (CAR V)) (CONS-CCA-CCAP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-CA-CCCCA)))) (DEFUNS (NTH-CONS-CA-CCCCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-CONS-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CCA-CCA X)))))) (IN-THEORY (DISABLE NTH-CONS-CA-CCCCA)) (DEFUNS (NTH-CONS-CA-CCCCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CCA-CCA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-CA-CCCCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-CA-CCCCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-CA-CCCCA CONS-CA-CCCCAP NIL NTH-CONS-CA-CCCCA-UNIFORM NIL T PRODUCT ((CONS-CA-CCCCA (CONS CONS-ATOM CONS-CCA-CCA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-CA-CCCCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-CA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-CA-CCCCA))))))) (205 RECORD-EXPANSION (DEFDATA CONS-ALL-ALL-BUT-ZERO-NIL-T (CONS ALL ALL-BUT-ZERO-NIL-T) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (CONS-ALL-ALL-BUT-ZERO-NIL-TP)))) (DEFUNS (CONS-ALL-ALL-BUT-ZERO-NIL-TP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (ALLP (CAR V)) (ALL-BUT-ZERO-NIL-TP (CDR V))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-CONS-ALL-ALL-BUT-ZERO-NIL-T)))) (DEFUNS (NTH-CONS-ALL-ALL-BUT-ZERO-NIL-T (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (CONS (LET ((X (NTH 0 INFXLST))) (NTH-ALL X)) (LET ((X (NTH 1 INFXLST))) (NTH-ALL-BUT-ZERO-NIL-T X)))))) (IN-THEORY (DISABLE NTH-CONS-ALL-ALL-BUT-ZERO-NIL-T)) (DEFUNS (NTH-CONS-ALL-ALL-BUT-ZERO-NIL-T-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ALL-BUT-ZERO-NIL-T-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (CONS VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-CONS-ALL-ALL-BUT-ZERO-NIL-T-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE CONS-ALL-ALL-BUT-ZERO-NIL-T) (QUOTE (DEFDATA::TYPES-INFO% T NTH-CONS-ALL-ALL-BUT-ZERO-NIL-T CONS-ALL-ALL-BUT-ZERO-NIL-TP NIL NTH-CONS-ALL-ALL-BUT-ZERO-NIL-T-UNIFORM NIL T PRODUCT ((CONS-ALL-ALL-BUT-ZERO-NIL-T (CONS ALL ALL-BUT-ZERO-NIL-T))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (CONS-ALL-ALL-BUT-ZERO-NIL-T)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-ALL-ALL-BUT-ZERO-NIL-T) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS-ALL-ALL-BUT-ZERO-NIL-T) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (CONS-ALL-ALL-BUT-ZERO-NIL-T))))))) (207 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE IMPROPER-CONS T NTH-IMPROPER-CONS IMPROPER-CONSP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-IMPROPER-CONS)) (DEFUND NTH-IMPROPER-CONS-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-IMPROPER-CONS N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE IMPROPER-CONS) (QUOTE (DEFDATA::TYPES-INFO% T NTH-IMPROPER-CONS IMPROPER-CONSP NIL NTH-IMPROPER-CONS-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE IMPROPER-CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE IMPROPER-CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE IMPROPER-CONS) (QUOTE (T NTH-IMPROPER-CONS IMPROPER-CONSP NIL NIL NIL CUSTOM))))))) (208 RECORD-EXPANSION (DEFDATA-SUBTYPE IMPROPER-CONS CONS) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::IMPROPER-CONS-IS-SUBTYPE-OF-CONS (IMPLIES (IMPROPER-CONSP X) (CONSP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE IMPROPER-CONS CONS) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE IMPROPER-CONS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (209 RECORD-EXPANSION (DEFDATA LIST-AAAALL (LIST ATOM ATOM ATOM ALL) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (LIST-AAAALLP)))) (DEFUNS (LIST-AAAALLP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (ATOMP (CAR V)) (AND (CONSP (CDR V)) (ATOMP (CAR (CDR V))) (AND (CONSP (CDR (CDR V))) (ATOMP (CAR (CDR (CDR V)))) (AND (CONSP (CDR (CDR (CDR V)))) (ALLP (CAR (CDR (CDR (CDR V))))) (EQ (CDR (CDR (CDR (CDR V)))) (QUOTE NIL)))))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-LIST-AAAALL)))) (DEFUNS (NTH-LIST-AAAALL (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 4 (NFIX X)))) (LIST (LET ((X (NTH 0 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 2 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 3 INFXLST))) (NTH-ALL X)))))) (IN-THEORY (DISABLE NTH-LIST-AAAALL)) (DEFUNS (NTH-LIST-AAAALL-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL3 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL4 DEFDATA::SEED) (NTH-ALL-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (LIST VAL1 VAL2 VAL3 VAL4) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-LIST-AAAALL-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE LIST-AAAALL) (QUOTE (DEFDATA::TYPES-INFO% T NTH-LIST-AAAALL LIST-AAAALLP NIL NTH-LIST-AAAALL-UNIFORM NIL T PRODUCT ((LIST-AAAALL (LIST ATOM ATOM ATOM ALL))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (LIST-AAAALL)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-AAAALL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-AAAALL) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (LIST-AAAALL))))))) (210 RECORD-EXPANSION (DEFDATA LIST-A-CA (LIST ATOM CONS-ATOM) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (LIST-A-CAP)))) (DEFUNS (LIST-A-CAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (ATOMP (CAR V)) (AND (CONSP (CDR V)) (CONS-ATOMP (CAR (CDR V))) (EQ (CDR (CDR V)) (QUOTE NIL)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-LIST-A-CA)))) (DEFUNS (NTH-LIST-A-CA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (LIST (LET ((X (NTH 0 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-ATOM X)))))) (IN-THEORY (DISABLE NTH-LIST-A-CA)) (DEFUNS (NTH-LIST-A-CA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (LIST VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-LIST-A-CA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE LIST-A-CA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-LIST-A-CA LIST-A-CAP NIL NTH-LIST-A-CA-UNIFORM NIL T PRODUCT ((LIST-A-CA (LIST ATOM CONS-ATOM))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (LIST-A-CA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-A-CA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-A-CA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (LIST-A-CA))))))) (211 RECORD-EXPANSION (DEFDATA LIST-AA-CA (LIST ATOM ATOM ATOM CONS-ATOM) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (LIST-AA-CAP)))) (DEFUNS (LIST-AA-CAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (ATOMP (CAR V)) (AND (CONSP (CDR V)) (ATOMP (CAR (CDR V))) (AND (CONSP (CDR (CDR V))) (ATOMP (CAR (CDR (CDR V)))) (AND (CONSP (CDR (CDR (CDR V)))) (CONS-ATOMP (CAR (CDR (CDR (CDR V))))) (EQ (CDR (CDR (CDR (CDR V)))) (QUOTE NIL)))))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-LIST-AA-CA)))) (DEFUNS (NTH-LIST-AA-CA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 4 (NFIX X)))) (LIST (LET ((X (NTH 0 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 2 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 3 INFXLST))) (NTH-CONS-ATOM X)))))) (IN-THEORY (DISABLE NTH-LIST-AA-CA)) (DEFUNS (NTH-LIST-AA-CA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL3 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL4 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (LIST VAL1 VAL2 VAL3 VAL4) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))))) (IN-THEORY (DISABLE NTH-LIST-AA-CA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE LIST-AA-CA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-LIST-AA-CA LIST-AA-CAP NIL NTH-LIST-AA-CA-UNIFORM NIL T PRODUCT ((LIST-AA-CA (LIST ATOM ATOM ATOM CONS-ATOM))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (LIST-AA-CA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-AA-CA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-AA-CA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (LIST-AA-CA))))))) (212 RECORD-EXPANSION (DEFDATA LIST-AA-CCA (LIST ATOM ATOM CONS-CA-CA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (LIST-AA-CCAP)))) (DEFUNS (LIST-AA-CCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (ATOMP (CAR V)) (AND (CONSP (CDR V)) (ATOMP (CAR (CDR V))) (AND (CONSP (CDR (CDR V))) (CONS-CA-CAP (CAR (CDR (CDR V)))) (EQ (CDR (CDR (CDR V))) (QUOTE NIL))))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-LIST-AA-CCA)))) (DEFUNS (NTH-LIST-AA-CCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 3 (NFIX X)))) (LIST (LET ((X (NTH 0 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-ATOM X)) (LET ((X (NTH 2 INFXLST))) (NTH-CONS-CA-CA X)))))) (IN-THEORY (DISABLE NTH-LIST-AA-CCA)) (DEFUNS (NTH-LIST-AA-CCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL3 DEFDATA::SEED) (NTH-CONS-CA-CA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (LIST VAL1 VAL2 VAL3) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED))))))) (IN-THEORY (DISABLE NTH-LIST-AA-CCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE LIST-AA-CCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-LIST-AA-CCA LIST-AA-CCAP NIL NTH-LIST-AA-CCA-UNIFORM NIL T PRODUCT ((LIST-AA-CCA (LIST ATOM ATOM CONS-CA-CA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (LIST-AA-CCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-AA-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-AA-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (LIST-AA-CCA))))))) (213 RECORD-EXPANSION (DEFDATA LIST-AAAA-CCCCA (LIST CONS-ATOM CONS-CCA-CCA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (LIST-AAAA-CCCCAP)))) (DEFUNS (LIST-AAAA-CCCCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (CONS-ATOMP (CAR V)) (AND (CONSP (CDR V)) (CONS-CCA-CCAP (CAR (CDR V))) (EQ (CDR (CDR V)) (QUOTE NIL)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-LIST-AAAA-CCCCA)))) (DEFUNS (NTH-LIST-AAAA-CCCCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (LIST (LET ((X (NTH 0 INFXLST))) (NTH-CONS-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CCA-CCA X)))))) (IN-THEORY (DISABLE NTH-LIST-AAAA-CCCCA)) (DEFUNS (NTH-LIST-AAAA-CCCCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CCA-CCA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (LIST VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-LIST-AAAA-CCCCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE LIST-AAAA-CCCCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-LIST-AAAA-CCCCA LIST-AAAA-CCCCAP NIL NTH-LIST-AAAA-CCCCA-UNIFORM NIL T PRODUCT ((LIST-AAAA-CCCCA (LIST CONS-ATOM CONS-CCA-CCA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (LIST-AAAA-CCCCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-AAAA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-AAAA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (LIST-AAAA-CCCCA))))))) (214 RECORD-EXPANSION (DEFDATA LIST-CA-CCA (LIST CONS-ATOM CONS-CA-CA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (LIST-CA-CCAP)))) (DEFUNS (LIST-CA-CCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (CONS-ATOMP (CAR V)) (AND (CONSP (CDR V)) (CONS-CA-CAP (CAR (CDR V))) (EQ (CDR (CDR V)) (QUOTE NIL)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-LIST-CA-CCA)))) (DEFUNS (NTH-LIST-CA-CCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (LIST (LET ((X (NTH 0 INFXLST))) (NTH-CONS-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CA-CA X)))))) (IN-THEORY (DISABLE NTH-LIST-CA-CCA)) (DEFUNS (NTH-LIST-CA-CCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CA-CA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (LIST VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-LIST-CA-CCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE LIST-CA-CCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-LIST-CA-CCA LIST-CA-CCAP NIL NTH-LIST-CA-CCA-UNIFORM NIL T PRODUCT ((LIST-CA-CCA (LIST CONS-ATOM CONS-CA-CA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (LIST-CA-CCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-CA-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-CA-CCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (LIST-CA-CCA))))))) (215 RECORD-EXPANSION (DEFDATA LIST-CA-CCCCA (LIST CONS-ATOM CONS-CCA-CCA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (LIST-CA-CCCCAP)))) (DEFUNS (LIST-CA-CCCCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (CONS-ATOMP (CAR V)) (AND (CONSP (CDR V)) (CONS-CCA-CCAP (CAR (CDR V))) (EQ (CDR (CDR V)) (QUOTE NIL)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-LIST-CA-CCCCA)))) (DEFUNS (NTH-LIST-CA-CCCCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (LIST (LET ((X (NTH 0 INFXLST))) (NTH-CONS-ATOM X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CCA-CCA X)))))) (IN-THEORY (DISABLE NTH-LIST-CA-CCCCA)) (DEFUNS (NTH-LIST-CA-CCCCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-CONS-ATOM-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CCA-CCA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (LIST VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-LIST-CA-CCCCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE LIST-CA-CCCCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-LIST-CA-CCCCA LIST-CA-CCCCAP NIL NTH-LIST-CA-CCCCA-UNIFORM NIL T PRODUCT ((LIST-CA-CCCCA (LIST CONS-ATOM CONS-CCA-CCA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (LIST-CA-CCCCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-CA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-CA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (LIST-CA-CCCCA))))))) (216 RECORD-EXPANSION (DEFDATA LIST-CCCCA-CCCCA (LIST CONS-CCA-CCA CONS-CCA-CCA) :DECLARE-GUARDS T) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED NIL) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% NIL (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting predicate functions ~x0.~%" (QUOTE (LIST-CCCCA-CCCCAP)))) (DEFUNS (LIST-CCCCA-CCCCAP (V) (DECLARE (XARGS :GUARD T :RULER-EXTENDERS :ALL)) (AND (CONSP V) (CONS-CCA-CCAP (CAR V)) (AND (CONSP (CDR V)) (CONS-CCA-CCAP (CAR (CDR V))) (EQ (CDR (CDR V)) (QUOTE NIL)))))) (VALUE-TRIPLE (DEFDATA::CW? T "Submitting enumerator functions ~x0.~%" (QUOTE (NTH-LIST-CCCCA-CCCCA)))) (DEFUNS (NTH-LIST-CCCCA-CCCCA (X) (DECLARE (XARGS :MEASURE (NFIX X) :GUARD (NATP X))) (LET ((INFXLST (DEFDATA::SPLIT-NAT 2 (NFIX X)))) (LIST (LET ((X (NTH 0 INFXLST))) (NTH-CONS-CCA-CCA X)) (LET ((X (NTH 1 INFXLST))) (NTH-CONS-CCA-CCA X)))))) (IN-THEORY (DISABLE NTH-LIST-CCCCA-CCCCA)) (DEFUNS (NTH-LIST-CCCCA-CCCCA-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M) (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED) (XARGS :MEASURE (NFIX DEFDATA::M) :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (VAL1 DEFDATA::SEED) (NTH-CONS-CCA-CCA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV-LET (VAL2 DEFDATA::SEED) (NTH-CONS-CCA-CCA-UNIFORM DEFDATA::M DEFDATA::SEED) (MV (LIST VAL1 VAL2) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))))) (IN-THEORY (DISABLE NTH-LIST-CCCCA-CCCCA-UNIFORM)) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata type table (type-class ~x0).~%" (QUOTE PRODUCT))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE LIST-CCCCA-CCCCA) (QUOTE (DEFDATA::TYPES-INFO% T NTH-LIST-CCCCA-CCCCA LIST-CCCCA-CCCCAP NIL NTH-LIST-CCCCA-CCCCA-UNIFORM NIL T PRODUCT ((LIST-CCCCA-CCCCA (LIST CONS-CCA-CCA CONS-CCA-CCA))))) :PUT) (VALUE-TRIPLE (DEFDATA::CW? T "Adding ~x0 to the type relation graphs.~%" (QUOTE (LIST-CCCCA-CCCCA)))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-CCCCA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE LIST-CCCCA-CCCCA) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE DEFDATA::ADD-VERTICES-TO-TYPE-GRAPH-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (DEFDATA::CW? T "Updating defdata subtype/disjoint graphs.~%")) (RECORD-EXPANSION (ACL2S-DEFAULTS :SET TESTING-ENABLED :NAIVE) (WITH-OUTPUT :OFF SUMMARY (PROGN (VALUE-TRIPLE :REDUNDANT) (TABLE ACL2S-DEFAULTS-TABLE (QUOTE TESTING-ENABLED) (QUOTE (ACL2S-PARAM-INFO% :NAIVE (MEMBER-EQ VALUE (QUOTE (T NIL :NAIVE))) SET-ACL2S-RANDOM-TESTING-ENABLED)))))) (VALUE-TRIPLE (QUOTE (LIST-CCCCA-CCCCA))))))) (218 RECORD-EXPANSION (REGISTER-CUSTOM-TYPE PROPER-CONS T NTH-PROPER-CONS PROPER-CONSP) (WITH-OUTPUT :STACK :PUSH :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) (PROGN (IN-THEORY (DISABLE NTH-PROPER-CONS)) (DEFUND NTH-PROPER-CONS-UNIFORM (DEFDATA::M DEFDATA::SEED) (DECLARE (IGNORABLE DEFDATA::M)) (DECLARE (TYPE (UNSIGNED-BYTE 31) DEFDATA::SEED)) (DECLARE (XARGS :VERIFY-GUARDS NIL :GUARD (AND (NATP DEFDATA::M) (UNSIGNED-BYTE-P 31 DEFDATA::SEED)))) (MV-LET (N DEFDATA::SEED) (DEFDATA::RANDOM-NATURAL-SEED DEFDATA::SEED) (MV (NTH-PROPER-CONS N) (THE (UNSIGNED-BYTE 31) DEFDATA::SEED)))) (TABLE DEFDATA::TYPES-INFO-TABLE (QUOTE PROPER-CONS) (QUOTE (DEFDATA::TYPES-INFO% T NTH-PROPER-CONS PROPER-CONSP NIL NTH-PROPER-CONS-UNIFORM NIL NIL CUSTOM NIL))) (RECORD-EXPANSION (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE PROPER-CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-VERTEX$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE PROPER-CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))) (QUOTE REGISTER-CUSTOM-TYPE) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE (LIST (QUOTE PROPER-CONS) (QUOTE (T NTH-PROPER-CONS PROPER-CONSP NIL NIL NIL CUSTOM))))))) (219 RECORD-EXPANSION (DEFDATA-SUBTYPE PROPER-CONS CONS) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::PROPER-CONS-IS-SUBTYPE-OF-CONS (IMPLIES (PROPER-CONSP X) (CONSP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE PROPER-CONS CONS) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE PROPER-CONS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (220 RECORD-EXPANSION (DEFDATA-SUBTYPE PROPER-CONS TRUE-LIST) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::PROPER-CONS-IS-SUBTYPE-OF-TRUE-LIST (IMPLIES (PROPER-CONSP X) (TRUE-LISTP X)) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :SUBTYPE PROPER-CONS TRUE-LIST) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :SUBTYPE) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE PROPER-CONS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE TRUE-LIST) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (221 RECORD-EXPANSION (DEFDATA-DISJOINT PROPER-CONS IMPROPER-CONS) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::PROPER-CONS-IS-DISJOINT-WITH-IMPROPER-CONS (IMPLIES (PROPER-CONSP X) (NOT (IMPROPER-CONSP X))) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :DISJOINT PROPER-CONS IMPROPER-CONS) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :DISJOINT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE PROPER-CONS) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE IMPROPER-CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))) (222 RECORD-EXPANSION (DEFDATA-DISJOINT ATOM CONS) (WITH-OUTPUT :STACK :PUSH :OFF :ALL (WITH-OUTPUT :STACK :POP :OFF (WARNING WARNING! OBSERVATION PROVE PROOF-CHECKER EVENT EXPANSION SUMMARY PROOF-TREE) :GAG-MODE T (PROGN (DEFTHM DEFDATA::ATOM-IS-DISJOINT-WITH-CONS (IMPLIES (ATOMP X) (NOT (CONSP X))) :HINTS NIL :RULE-CLASSES (:TAU-SYSTEM) :OTF-FLG NIL :DOC NIL) (RECORD-EXPANSION (DEFDATA::ADD-EDGE-EVENT :DISJOINT ATOM CONS) (MAKE-EVENT (ER-PROGN (TRANS-EVAL (CONS (QUOTE DEFDATA::ADD-EDGE$$) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE :DISJOINT) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE ATOM) (QUOTE NIL))) (CONS (CONS (QUOTE QUOTE) (CONS (QUOTE CONS) (QUOTE NIL))) (CONS (QUOTE DEFDATA::R$) (CONS (QUOTE DEFDATA::TYPES-HT$) (QUOTE NIL))))))) (QUOTE DEFDATA::ADD-EDGE-EVENT) STATE T) (VALUE (QUOTE (VALUE-TRIPLE :INVISIBLE)))) :CHECK-EXPANSION (VALUE-TRIPLE :INVISIBLE))) (VALUE-TRIPLE :SUCCESS))))))
(("/usr/share/acl2-6.3/books/std/osets/portcullis.lisp" "std/osets/portcullis" "portcullis" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1689687557))
(("/usr/share/acl2-6.3/books/cgen/base.lisp" "base" "base" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS (:HASH-STOBJS "/usr/share/acl2-6.3/books/add-ons/hash-stobjs.lisp") (:REDEF+ "/usr/share/acl2-6.3/books/add-ons/hash-stobjs.lisp"))) . 695603908) ("/usr/share/acl2-6.3/books/cgen/random-state.lisp" "random-state" "random-state" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1030316271) ("/usr/share/acl2-6.3/books/cgen/random-state-basis1.lisp" "random-state-basis1" "random-state-basis1" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 236477071) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/floor-mod/floor-mod.lisp" "arithmetic-3/floor-mod/floor-mod" "floor-mod" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 14631641)) ("/usr/share/acl2-6.3/books/cgen/defdata.lisp" "defdata" "defdata" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS (:HASH-STOBJS "/usr/share/acl2-6.3/books/add-ons/hash-stobjs.lisp") (:REDEF+ "/usr/share/acl2-6.3/books/add-ons/hash-stobjs.lisp"))) . 1945337037) ("/usr/share/acl2-6.3/books/cgen/graph-tc.lisp" "graph-tc" "graph-tc" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS (:HASH-STOBJS "/usr/share/acl2-6.3/books/add-ons/hash-stobjs.lisp") (:REDEF+ "/usr/share/acl2-6.3/books/add-ons/hash-stobjs.lisp"))) . 1209117067) ("/usr/share/acl2-6.3/books/cgen/library-support.lisp" "library-support" "library-support" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 635686251) ("/usr/share/acl2-6.3/books/finite-set-theory/osets/sets.lisp" "finite-set-theory/osets/sets" "sets" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1410988217) ("/usr/share/acl2-6.3/books/std/osets/top.lisp" "std/osets/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2045504100) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/under-set-equiv.lisp" "under-set-equiv" "under-set-equiv" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1595680367)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/sets.lisp" "std/lists/sets" "sets" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 878261262)) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/sort.lisp" "sort" "sort" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 335087178)) (LOCAL ("/usr/share/acl2-6.3/books/tools/mv-nth.lisp" "tools/mv-nth" "mv-nth" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 82993140)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/rev.lisp" "std/lists/rev" "rev" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 327117871)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/append.lisp" "std/lists/append" "append" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 567759210)) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/outer.lisp" "outer" "outer" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 883866964)) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/cardinality.lisp" "cardinality" "cardinality" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 101478632)) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/difference.lisp" "difference" "difference" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1211437825)) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/intersect.lisp" "intersect" "intersect" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 464592124)) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/union.lisp" "union" "union" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 895011797)) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/delete.lisp" "delete" "delete" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 929878553)) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/membership.lisp" "membership" "membership" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 48714967)) (LOCAL ("/usr/share/acl2-6.3/books/std/osets/primitives.lisp" "primitives" "primitives" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 392002111)) ("/usr/share/acl2-6.3/books/std/osets/computed-hints.lisp" "computed-hints" "computed-hints" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 537896665) ("/usr/share/acl2-6.3/books/std/osets/instance.lisp" "instance" "instance" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1528243117) ("/usr/share/acl2-6.3/books/std/osets/portcullis.lisp" "portcullis" "portcullis" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1689687557) ("/usr/share/acl2-6.3/books/xdoc/portcullis.lisp" "xdoc/portcullis" "portcullis" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1473208573) ("/usr/share/acl2-6.3/books/std/lists/list-defuns.lisp" "std/lists/list-defuns" "list-defuns" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 321177760) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/sublistp.lisp" "sublistp" "sublistp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1635583873)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/same-lengthp.lisp" "same-lengthp" "same-lengthp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2063823673)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/sets.lisp" "sets" "sets" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 878261262)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/mfc-utils.lisp" "mfc-utils" "mfc-utils" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1043482843)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/rcons.lisp" "rcons" "rcons" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 105042482)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/repeat.lisp" "repeat" "repeat" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 293545519)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/prefixp.lisp" "prefixp" "prefixp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 689235789)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/final-cdr.lisp" "final-cdr" "final-cdr" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 96013958)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/nthcdr.lisp" "nthcdr" "nthcdr" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1415704060)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/duplicity.lisp" "duplicity" "duplicity" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 914433854)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/flatten.lisp" "flatten" "flatten" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1125138266)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/rev.lisp" "rev" "rev" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 327117871)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/revappend.lisp" "revappend" "revappend" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1368863429)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/equiv.lisp" "equiv" "equiv" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1948483556)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/take.lisp" "take" "take" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1496833916)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/append.lisp" "append" "append" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 567759210)) (LOCAL ("/usr/share/acl2-6.3/books/std/lists/list-fix.lisp" "list-fix" "list-fix" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1844974260)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/top.lisp" "arithmetic/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 956305966)) ("/usr/share/acl2-6.3/books/tools/rulesets.lisp" "tools/rulesets" "rulesets" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 639683473) ("/usr/share/acl2-6.3/books/defexec/other-apps/records/records.lisp" "defexec/other-apps/records/records" "records" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 681429738) ("/usr/share/acl2-6.3/books/add-ons/hash-stobjs.lisp" "add-ons/hash-stobjs" "hash-stobjs" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS (:HASH-STOBJS "/usr/share/acl2-6.3/books/add-ons/hash-stobjs.lisp") (:REDEF+ "/usr/share/acl2-6.3/books/add-ons/hash-stobjs.lisp"))) . 1257498041) (LOCAL ("/usr/share/acl2-6.3/books/misc/assert.lisp" "misc/assert" "assert" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1184956729)) (LOCAL ("/usr/share/acl2-6.3/books/misc/eval.lisp" "eval" "eval" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1069973718)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/top-with-meta.lisp" "arithmetic/top-with-meta" "top-with-meta" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 349005499)) (LOCAL ("/usr/share/acl2-6.3/books/meta/meta.lisp" "meta/meta" "meta" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1434715577)) (LOCAL ("/usr/share/acl2-6.3/books/meta/meta-times-equal.lisp" "meta-times-equal" "meta-times-equal" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2078846479)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/equalities.lisp" "arithmetic/equalities" "equalities" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 597034595)) (LOCAL ("/usr/share/acl2-6.3/books/meta/meta-plus-lessp.lisp" "meta-plus-lessp" "meta-plus-lessp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 932651372)) (LOCAL ("/usr/share/acl2-6.3/books/meta/meta-plus-equal.lisp" "meta-plus-equal" "meta-plus-equal" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1948431900)) (LOCAL ("/usr/share/acl2-6.3/books/meta/term-lemmas.lisp" "term-lemmas" "term-lemmas" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 304413851)) (LOCAL ("/usr/share/acl2-6.3/books/meta/term-defuns.lisp" "term-defuns" "term-defuns" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1038247295)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/top.lisp" "top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 956305966)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/rationals.lisp" "rationals" "rationals" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1403689963)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/mod-gcd.lisp" "mod-gcd" "mod-gcd" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1629957550)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/natp-posp.lisp" "natp-posp" "natp-posp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2140150970)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/inequalities.lisp" "inequalities" "inequalities" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1221989523)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/nat-listp.lisp" "nat-listp" "nat-listp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1767896370)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/rational-listp.lisp" "rational-listp" "rational-listp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1775556314)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic/equalities.lisp" "equalities" "equalities" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 597034595)) (LOCAL ("/usr/share/acl2-6.3/books/cowles/acl2-crg.lisp" "cowles/acl2-crg" "acl2-crg" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 761519866)) (LOCAL ("/usr/share/acl2-6.3/books/cowles/acl2-agp.lisp" "acl2-agp" "acl2-agp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2007324914)) (LOCAL ("/usr/share/acl2-6.3/books/cowles/acl2-asg.lisp" "acl2-asg" "acl2-asg" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1939433116)) ("/usr/share/acl2-6.3/books/cgen/switchnat.lisp" "switchnat" "switchnat" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 999627028) ("/usr/share/acl2-6.3/books/cgen/mv-proof.lisp" "mv-proof" "mv-proof" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 40342183) ("/usr/share/acl2-6.3/books/cgen/splitnat.lisp" "splitnat" "splitnat" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 940480607) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/top.lisp" "arithmetic-3/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1644102178)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/floor-mod/mod-expt-fast.lisp" "floor-mod/mod-expt-fast" "mod-expt-fast" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 70679366)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/floor-mod/floor-mod.lisp" "floor-mod" "floor-mod" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 14631641)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/floor-mod/floor-mod.lisp" "floor-mod/floor-mod" "floor-mod" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 14631641)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/top.lisp" "../bind-free/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 248299501)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/top.lisp" "bind-free/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 248299501)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/banner.lisp" "banner" "banner" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 915259697)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/arithmetic-theory.lisp" "arithmetic-theory" "arithmetic-theory" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 732116275)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/remove-weak-inequalities.lisp" "remove-weak-inequalities" "remove-weak-inequalities" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 105657945)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/collect.lisp" "collect" "collect" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 864029516)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/integerp-meta.lisp" "integerp-meta" "integerp-meta" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 750113408)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/integerp.lisp" "integerp" "integerp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1374753694)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/numerator-and-denominator.lisp" "numerator-and-denominator" "numerator-and-denominator" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 122664565)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/simplify.lisp" "simplify" "simplify" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2013733040)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/simplify-helper.lisp" "simplify-helper" "simplify-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1061645425)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/normalize.lisp" "normalize" "normalize" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1619080936)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/basic.lisp" "basic" "basic" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 972646001)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/basic-helper.lisp" "basic-helper" "basic-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 384804126)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/common.lisp" "common" "common" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1113724693)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/mini-theories.lisp" "mini-theories" "mini-theories" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 483566967)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/mini-theories-helper.lisp" "mini-theories-helper" "mini-theories-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 457663279)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/top.lisp" "../pass1/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 513558315)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/numerator-and-denominator.lisp" "numerator-and-denominator" "numerator-and-denominator" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 134470975)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/num-and-denom-helper.lisp" "num-and-denom-helper" "num-and-denom-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 784695287)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/non-linear.lisp" "non-linear" "non-linear" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2126151702)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/mini-theories.lisp" "mini-theories" "mini-theories" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1504975778)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/expt.lisp" "expt" "expt" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 653127144)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/expt-helper.lisp" "expt-helper" "expt-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1661395704)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/prefer-times.lisp" "prefer-times" "prefer-times" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1273493319)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/inequalities.lisp" "inequalities" "inequalities" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 508744284)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/basic-arithmetic.lisp" "basic-arithmetic" "basic-arithmetic" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1246647817)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/pass1/basic-arithmetic-helper.lisp" "basic-arithmetic-helper" "basic-arithmetic-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 376534638)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/building-blocks.lisp" "building-blocks" "building-blocks" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1061889192)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-3/bind-free/default-hint.lisp" "default-hint" "default-hint" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1153949377)) (LOCAL ("/usr/share/acl2-6.3/books/cgen/rem-and-floor.lisp" "rem-and-floor" "rem-and-floor" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1227219523)) (LOCAL ("/usr/share/acl2-6.3/books/cgen/num-list-thms.lisp" "num-list-thms" "num-list-thms" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1052180754)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/top.lisp" "arithmetic-5/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 414221999)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/top.lisp" "lib/floor-mod/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2036487313)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/mod-expt-fast.lisp" "mod-expt-fast" "mod-expt-fast" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 8474989)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/logand.lisp" "logand" "logand" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 477689935)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/logand-helper.lisp" "logand-helper" "logand-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1567870466)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/truncate-rem.lisp" "truncate-rem" "truncate-rem" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1222339411)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/more-floor-mod.lisp" "more-floor-mod" "more-floor-mod" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1054313738)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/if-normalization.lisp" "if-normalization" "if-normalization" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 478555307)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/floor-mod.lisp" "floor-mod" "floor-mod" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1117227810)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/floor-mod-helper.lisp" "floor-mod-helper" "floor-mod-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 383675918)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/floor-mod-basic.lisp" "floor-mod-basic" "floor-mod-basic" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1868400972)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/floor-mod-basic-helper.lisp" "floor-mod-basic-helper" "floor-mod-basic-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 122255223)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/floor-mod/forcing-types.lisp" "forcing-types" "forcing-types" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2092136594)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/common.lisp" "../basic-ops/common" "common" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2005694427)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/top.lisp" "../basic-ops/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 227046385)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/building-blocks.lisp" "../basic-ops/building-blocks" "building-blocks" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 3355516)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/top.lisp" "lib/basic-ops/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 227046385)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/banner.lisp" "banner" "banner" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 322732972)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/forcing-types.lisp" "forcing-types" "forcing-types" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 176314612)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/if-normalization.lisp" "if-normalization" "if-normalization" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2119667687)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/arithmetic-theory.lisp" "arithmetic-theory" "arithmetic-theory" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 586482828)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/simple-equalities-and-inequalities.lisp" "simple-equalities-and-inequalities" "simple-equalities-and-inequalities" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 869088724)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/simple-equalities-and-inequalities-helper.lisp" "simple-equalities-and-inequalities-helper" "simple-equalities-and-inequalities-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 21977321)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/remove-weak-inequalities.lisp" "remove-weak-inequalities" "remove-weak-inequalities" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2009755655)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/expt.lisp" "expt" "expt" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1042653498)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/types.lisp" "types" "types" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1952837234)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/types-helper.lisp" "types-helper" "types-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1308711892)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/integerp.lisp" "integerp" "integerp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 414495578)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/collect.lisp" "collect" "collect" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1484950306)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/expt-helper.lisp" "expt-helper" "expt-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2103891710)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/integerp-helper.lisp" "integerp-helper" "integerp-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1650787804)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/integerp-meta.lisp" "integerp-meta" "integerp-meta" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1666343128)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/natp-posp.lisp" "natp-posp" "natp-posp" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1658521281)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/numerator-and-denominator.lisp" "numerator-and-denominator" "numerator-and-denominator" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 475372159)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/mini-theories.lisp" "mini-theories" "mini-theories" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1950245832)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/simplify.lisp" "simplify" "simplify" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1441743781)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/simplify-helper.lisp" "simplify-helper" "simplify-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2047460336)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/normalize.lisp" "normalize" "normalize" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 668797475)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/basic.lisp" "basic" "basic" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1040308974)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/common.lisp" "common" "common" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2005694427)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/building-blocks.lisp" "building-blocks" "building-blocks" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 3355516)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/building-blocks-helper.lisp" "building-blocks-helper" "building-blocks-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1904099973)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/top.lisp" "../../support/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 513558315)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/numerator-and-denominator.lisp" "numerator-and-denominator" "numerator-and-denominator" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1197165143)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/num-and-denom-helper.lisp" "num-and-denom-helper" "num-and-denom-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 784695287)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/non-linear.lisp" "non-linear" "non-linear" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 2058266018)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/mini-theories.lisp" "mini-theories" "mini-theories" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1504975778)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/expt.lisp" "expt" "expt" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1097318215)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/expt-helper.lisp" "expt-helper" "expt-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 628802930)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/prefer-times.lisp" "prefer-times" "prefer-times" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1078019670)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/inequalities.lisp" "inequalities" "inequalities" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 806765711)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/basic-arithmetic.lisp" "basic-arithmetic" "basic-arithmetic" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1246647817)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/support/basic-arithmetic-helper.lisp" "basic-arithmetic-helper" "basic-arithmetic-helper" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 376534638)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/default-hint.lisp" "default-hint" "default-hint" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1153952210)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/dynamic-e-d.lisp" "dynamic-e-d" "dynamic-e-d" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 689130045)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/distributivity.lisp" "distributivity" "distributivity" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1422342520)) (LOCAL ("/usr/share/acl2-6.3/books/arithmetic-5/lib/basic-ops/we-are-here.lisp" "we-are-here" "we-are-here" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1006471420)) ("/usr/share/acl2-6.3/books/cgen/num-list-fns.lisp" "num-list-fns" "num-list-fns" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 41485979) ("/usr/share/acl2-6.3/books/cgen/acl2s-parameter.lisp" "acl2s-parameter" "acl2s-parameter" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1259392589) ("/usr/share/acl2-6.3/books/cgen/basis.lisp" "basis" "basis" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 829677440) ("/usr/share/acl2-6.3/books/cgen/utilities.lisp" "utilities" "utilities" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1459061217) ("/usr/share/acl2-6.3/books/misc/total-order.lisp" "misc/total-order" "total-order" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1619824963) (LOCAL ("/usr/share/acl2-6.3/books/misc/total-order-bsd.lisp" "total-order-bsd" "total-order-bsd" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 449327279)) ("/usr/share/acl2-6.3/books/xdoc/top.lisp" "xdoc/top" "top" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1214825095) ("/usr/share/acl2-6.3/books/xdoc/book-thms.lisp" "book-thms" "book-thms" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1105796063) ("/usr/share/acl2-6.3/books/xdoc/base.lisp" "base" "base" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 454271148) ("/usr/share/acl2-6.3/books/xdoc/portcullis.lisp" "portcullis" "portcullis" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1473208573) ("/usr/share/acl2-6.3/books/tools/bstar.lisp" "tools/bstar" "bstar" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1482974359) ("/usr/share/acl2-6.3/books/tools/pack.lisp" "pack" "pack" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1797170439) ("/usr/share/acl2-6.3/books/std/osets/portcullis.lisp" "std/osets/portcullis" "portcullis" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1689687557))
2082647765