(CTERM-EV-DISJOIN-CONS)
(CTERM-EV-DISJOIN-WHEN-CONSP)
(CTERM-EV-DISJOIN-ATOM
 (1 1 (:REWRITE CTERM-EV-OF-IF-CALL))
 )
(CTERM-EV-DISJOIN-APPEND
 (23 23 (:REWRITE CTERM-EV-OF-QUOTE))
 (23 23 (:REWRITE CTERM-EV-OF-IF-CALL))
 )
(CTERM-EV-CONJOIN-CONS)
(CTERM-EV-CONJOIN-WHEN-CONSP)
(CTERM-EV-CONJOIN-ATOM
 (1 1 (:REWRITE CTERM-EV-OF-IF-CALL))
 )
(CTERM-EV-CONJOIN-APPEND
 (23 23 (:REWRITE CTERM-EV-OF-QUOTE))
 (23 23 (:REWRITE CTERM-EV-OF-IF-CALL))
 )
(CTERM-EV-CONJOIN-CLAUSES-CONS
 (100 50 (:DEFINITION DISJOIN))
 (50 50 (:DEFINITION DISJOIN2))
 (7 7 (:REWRITE CTERM-EV-DISJOIN-ATOM))
 (5 5 (:REWRITE CTERM-EV-CONJOIN-ATOM))
 )
(CTERM-EV-CONJOIN-CLAUSES-WHEN-CONSP
 (24 24 (:REWRITE CTERM-EV-OF-QUOTE))
 (24 24 (:REWRITE CTERM-EV-OF-IF-CALL))
 (18 9 (:DEFINITION DISJOIN))
 (9 9 (:REWRITE CTERM-EV-DISJOIN-ATOM))
 (9 9 (:DEFINITION DISJOIN2))
 )
(CTERM-EV-CONJOIN-CLAUSES-ATOM
 (1 1 (:REWRITE CTERM-EV-OF-IF-CALL))
 )
(CTERM-EV-CONJOIN-CLAUSES-APPEND
 (65 65 (:REWRITE CTERM-EV-OF-QUOTE))
 (65 65 (:REWRITE CTERM-EV-OF-IF-CALL))
 (24 12 (:DEFINITION DISJOIN))
 (12 12 (:REWRITE CTERM-EV-DISJOIN-ATOM))
 (12 12 (:DEFINITION DISJOIN2))
 )
(MATCH-SIMPLE-EQUALITY-HYP)
(MATCH-SIMPLE-EQUALITY-HYP-CORRECT
 (120 120 (:REWRITE DEFAULT-CDR))
 (90 90 (:REWRITE DEFAULT-CAR))
 (20 4 (:DEFINITION ASSOC-EQUAL))
 (8 8 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (8 8 (:REWRITE CTERM-EV-OF-IF-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (6 6 (:REWRITE CTERM-EV-OF-LAMBDA))
 (6 6 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (6 6 (:REWRITE CTERM-EV-OF-<-CALL))
 )
(COLLECT-SIMPLE-EQUALITY-HYPS)
(CTERM-EV-SUBST-ALISTP)
(LOOKUP-IN-CTERM-EV-SUBST-ALISTP
 (116 116 (:REWRITE DEFAULT-CAR))
 (34 34 (:REWRITE DEFAULT-CDR))
 (17 17 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (17 17 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-QUOTE))
 (17 17 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-LAMBDA))
 (17 17 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-IF-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-<-CALL))
 )
(TERM-IND
 (1 1 (:TYPE-PRESCRIPTION TERM-IND))
 )
(TERM-FLG
 (4 2 (:TYPE-PRESCRIPTION RETURN-LAST))
 (2 2 (:TYPE-PRESCRIPTION THROW-NONEXEC-ERROR))
 )
(FLAG::FLAG-EQUIV-LEMMA)
(TERM-FLG-EQUIVALENCES)
(ASSOC-APPEND-WHEN-KEY
 (122 110 (:REWRITE DEFAULT-CAR))
 (54 6 (:REWRITE ASSOC-OF-APPEND-WHEN-ALISTP-X))
 (48 24 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (41 35 (:REWRITE DEFAULT-CDR))
 (36 6 (:DEFINITION ALISTP))
 (24 24 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (24 24 (:TYPE-PRESCRIPTION BINARY-APPEND))
 )
(FLAG-LEMMA-FOR-EVAL-UNDER-APPEND-CTERM-EV-SUBST-ALIST
 (335 303 (:REWRITE DEFAULT-CAR))
 (316 8 (:DEFINITION CTERM-EV-ALIST))
 (176 176 (:REWRITE DEFAULT-CDR))
 (100 20 (:DEFINITION LEN))
 (100 12 (:DEFINITION LENGTH))
 (99 99 (:TYPE-PRESCRIPTION KWOTE-LST))
 (90 90 (:TYPE-PRESCRIPTION LEN))
 (82 6 (:REWRITE PSEUDO-TERMP-CADR-FROM-PSEUDO-TERM-LISTP))
 (50 25 (:REWRITE PSEUDO-TERMP-OPENER))
 (47 12 (:DEFINITION TRUE-LISTP))
 (43 43 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (40 20 (:REWRITE DEFAULT-+-2))
 (40 8 (:DEFINITION BINARY-APPEND))
 (36 30 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (36 30 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-LAMBDA))
 (36 30 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-IF-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (36 30 (:REWRITE CTERM-EV-OF-<-CALL))
 (32 32 (:REWRITE CAR-CONS))
 (26 26 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (24 5 (:DEFINITION SYMBOL-LISTP))
 (23 23 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (20 20 (:REWRITE DEFAULT-+-1))
 (17 17 (:TYPE-PRESCRIPTION SYMBOL-LISTP))
 (16 16 (:TYPE-PRESCRIPTION CTERM-EV-ALIST))
 (8 2 (:DEFINITION KWOTE-LST))
 (5 5 (:REWRITE DEFAULT-COERCE-2))
 (5 5 (:REWRITE DEFAULT-COERCE-1))
 (2 2 (:DEFINITION KWOTE))
 )
(EVAL-UNDER-APPEND-CTERM-EV-SUBST-ALIST)
(EVAL-LIST-UNDER-APPEND-CTERM-EV-SUBST-ALIST)
(NORMALIZE-FORMALS/ACTUALS
 (59 30 (:REWRITE DEFAULT-+-2))
 (53 53 (:REWRITE DEFAULT-CDR))
 (40 40 (:REWRITE DEFAULT-CAR))
 (30 30 (:REWRITE DEFAULT-+-1))
 (12 4 (:DEFINITION MEMBER-EQUAL))
 )
(NORMALIZE-FORMALS/ACTUALS-CORRECT
 (20 20 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (20 20 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-QUOTE))
 (20 20 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-LAMBDA))
 (20 20 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-IF-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (20 20 (:REWRITE CTERM-EV-OF-<-CALL))
 )
(FLAG-LEMMA-FOR-EVAL-UNDER-NORMALIZE-FORMALS/ACTUALS
 (1328 67 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (882 67 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (577 41 (:REWRITE PSEUDO-TERMP-CAR))
 (457 425 (:REWRITE DEFAULT-CAR))
 (364 364 (:REWRITE DEFAULT-CDR))
 (325 39 (:DEFINITION LENGTH))
 (291 291 (:TYPE-PRESCRIPTION LEN))
 (280 56 (:DEFINITION LEN))
 (186 21 (:REWRITE PSEUDO-TERMP-CADR-FROM-PSEUDO-TERM-LISTP))
 (143 13 (:DEFINITION NORMALIZE-FORMALS/ACTUALS))
 (137 77 (:REWRITE PSEUDO-TERMP-OPENER))
 (115 115 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (112 56 (:REWRITE DEFAULT-+-2))
 (102 102 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (99 99 (:TYPE-PRESCRIPTION KWOTE-LST))
 (95 19 (:DEFINITION PAIRLIS$))
 (75 14 (:DEFINITION SYMBOL-LISTP))
 (74 74 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (58 58 (:TYPE-PRESCRIPTION SYMBOL-LISTP))
 (56 56 (:REWRITE DEFAULT-+-1))
 (32 32 (:REWRITE CAR-CONS))
 (18 12 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (18 12 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-LAMBDA))
 (18 12 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-IF-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (18 12 (:REWRITE CTERM-EV-OF-<-CALL))
 (14 14 (:REWRITE DEFAULT-COERCE-2))
 (14 14 (:REWRITE DEFAULT-COERCE-1))
 (14 2 (:DEFINITION ASSOC-EQUAL))
 (8 2 (:DEFINITION KWOTE-LST))
 (4 4 (:TYPE-PRESCRIPTION PAIRLIS$))
 (2 2 (:DEFINITION KWOTE))
 )
(EVAL-UNDER-NORMALIZE-FORMALS/ACTUALS)
(EVAL-LIST-UNDER-NORMALIZE-FORMALS/ACTUALS)
(NORMALIZE-FORMALS/ACTUALS-PSEUDO-TERM-LISTP
 (77 11 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (53 53 (:REWRITE DEFAULT-CAR))
 (47 47 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (47 47 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (44 44 (:TYPE-PRESCRIPTION PSEUDO-TERMP))
 (33 33 (:REWRITE DEFAULT-CDR))
 (33 22 (:REWRITE PSEUDO-TERMP-OPENER))
 (22 22 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 )
(NORMALIZE-FORMALS/ACTUALS-SYMBOL-LISTP
 (50 50 (:REWRITE DEFAULT-CAR))
 (31 31 (:REWRITE DEFAULT-CDR))
 )
(NORMALIZE-FORMALS/ACTUALS-TYPE-0
 (28 28 (:REWRITE DEFAULT-CAR))
 (24 24 (:REWRITE DEFAULT-CDR))
 (10 5 (:DEFINITION TRUE-LISTP))
 )
(NORMALIZE-FORMALS/ACTUALS-TYPE-1
 (28 28 (:REWRITE DEFAULT-CAR))
 (24 24 (:REWRITE DEFAULT-CDR))
 (10 5 (:DEFINITION TRUE-LISTP))
 )
(LEN-OF-NORMALIZE-FORMALS/ACTUALS
 (56 54 (:REWRITE DEFAULT-CDR))
 (50 50 (:REWRITE DEFAULT-CAR))
 (40 20 (:REWRITE DEFAULT-+-2))
 (20 20 (:REWRITE DEFAULT-+-1))
 )
(NORMALIZE-FORMALS/ACTUALS-NONNIL-SYMBOLS
 (37 36 (:REWRITE DEFAULT-CAR))
 (28 27 (:REWRITE DEFAULT-CDR))
 )
(NORMALIZE-FORMALS/ACTUALS-NO-MEMBERS-OF-SEEN-FORMALS
 (48 47 (:REWRITE DEFAULT-CAR))
 (36 35 (:REWRITE DEFAULT-CDR))
 )
(NORMALIZE-FORMALS/ACTUALS-NO-DUPLICATE-VARS
 (45 44 (:REWRITE DEFAULT-CAR))
 (44 42 (:REWRITE DEFAULT-CDR))
 )
(COLLECT-SIMPLE-EQUALITY-HYPS-SUBST-CORRECT
 (745 149 (:DEFINITION ASSOC-EQUAL))
 (564 466 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (564 466 (:REWRITE CTERM-EV-OF-IF-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (498 438 (:REWRITE CTERM-EV-OF-LAMBDA))
 (498 438 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (498 438 (:REWRITE CTERM-EV-OF-<-CALL))
 )
(BINDINGS-TO-CONST-ALIST
 (81 3 (:DEFINITION PSEUDO-TERM-LISTP))
 (32 16 (:REWRITE DEFAULT-+-2))
 (31 31 (:REWRITE DEFAULT-CDR))
 (21 3 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (18 3 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (18 3 (:REWRITE PSEUDO-TERMP-CAR))
 (16 16 (:REWRITE DEFAULT-+-1))
 (15 15 (:REWRITE DEFAULT-CAR))
 (12 12 (:TYPE-PRESCRIPTION PSEUDO-TERMP))
 (12 12 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (12 12 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (9 6 (:REWRITE PSEUDO-TERMP-OPENER))
 (6 6 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (4 2 (:DEFINITION TRUE-LISTP))
 )
(CTERM-EV-SUBST-ALISTP-CONS-NON-KEY
 (572 564 (:REWRITE DEFAULT-CAR))
 (205 197 (:REWRITE DEFAULT-CDR))
 (34 34 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (34 34 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-LAMBDA))
 (34 34 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-IF-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (34 34 (:REWRITE CTERM-EV-OF-<-CALL))
 (24 24 (:REWRITE CTERM-EV-OF-VARIABLE))
 )
(QUOTE-LISTP-STRIP-CDRS-OF-BINDINGS-TO-CONST-ALIST
 (85 83 (:REWRITE DEFAULT-CAR))
 (72 70 (:REWRITE DEFAULT-CDR))
 )
(NOT-ASSOC-BINDINGS-TO-CONST-ALIST-WHEN-NOT-MEMBER-FORMALS
 (104 103 (:REWRITE DEFAULT-CAR))
 (51 50 (:REWRITE DEFAULT-CDR))
 )
(NOT-ASSOC-BINDINGS-TO-CONST-ALIST-NIL
 (108 12 (:REWRITE NOT-ASSOC-BINDINGS-TO-CONST-ALIST-WHEN-NOT-MEMBER-FORMALS))
 (93 92 (:REWRITE DEFAULT-CAR))
 (57 56 (:REWRITE DEFAULT-CDR))
 )
(BINDINGS-TO-CONST-ALIST-CORRECT
 (587 39 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (410 396 (:REWRITE DEFAULT-CAR))
 (344 341 (:REWRITE DEFAULT-CDR))
 (239 39 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (183 20 (:REWRITE PSEUDO-TERMP-CAR))
 (96 96 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (73 37 (:REWRITE DEFAULT-+-2))
 (69 7 (:REWRITE PSEUDO-TERMP-CADR-FROM-PSEUDO-TERM-LISTP))
 (66 40 (:REWRITE PSEUDO-TERMP-OPENER))
 (62 13 (:DEFINITION TRUE-LISTP))
 (56 7 (:DEFINITION LENGTH))
 (39 39 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (38 38 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (37 37 (:REWRITE DEFAULT-+-1))
 (18 3 (:DEFINITION STRIP-CDRS))
 (17 17 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (17 17 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-LAMBDA))
 (17 17 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-IF-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (17 17 (:REWRITE CTERM-EV-OF-<-CALL))
 (3 3 (:REWRITE DEFAULT-COERCE-2))
 (3 3 (:REWRITE DEFAULT-COERCE-1))
 )
(DEEP-SUBSTITUTE-TERM
 (455 187 (:REWRITE DEFAULT-+-2))
 (263 187 (:REWRITE DEFAULT-+-1))
 (128 32 (:DEFINITION INTEGER-ABS))
 (128 16 (:DEFINITION LENGTH))
 (80 16 (:DEFINITION LEN))
 (53 38 (:REWRITE DEFAULT-<-2))
 (42 38 (:REWRITE DEFAULT-<-1))
 (32 32 (:REWRITE DEFAULT-UNARY-MINUS))
 (16 16 (:REWRITE DEFAULT-REALPART))
 (16 16 (:REWRITE DEFAULT-NUMERATOR))
 (16 16 (:REWRITE DEFAULT-IMAGPART))
 (16 16 (:REWRITE DEFAULT-DENOMINATOR))
 (16 16 (:REWRITE DEFAULT-COERCE-2))
 (16 16 (:REWRITE DEFAULT-COERCE-1))
 )
(DEEP-SUBSTITUTE-FLG
 (455 187 (:REWRITE DEFAULT-+-2))
 (263 187 (:REWRITE DEFAULT-+-1))
 (128 32 (:DEFINITION INTEGER-ABS))
 (128 16 (:DEFINITION LENGTH))
 (80 16 (:DEFINITION LEN))
 (53 38 (:REWRITE DEFAULT-<-2))
 (42 38 (:REWRITE DEFAULT-<-1))
 (32 32 (:REWRITE DEFAULT-UNARY-MINUS))
 (16 16 (:REWRITE DEFAULT-REALPART))
 (16 16 (:REWRITE DEFAULT-NUMERATOR))
 (16 16 (:REWRITE DEFAULT-IMAGPART))
 (16 16 (:REWRITE DEFAULT-DENOMINATOR))
 (16 16 (:REWRITE DEFAULT-COERCE-2))
 (16 16 (:REWRITE DEFAULT-COERCE-1))
 )
(FLAG::FLAG-EQUIV-LEMMA)
(DEEP-SUBSTITUTE-FLG-EQUIVALENCES)
(FLAG-LEMMA-FOR-TRUE-LISTP-DEEP-SUBSTITUTE-TERM-LIST
 (784 8 (:DEFINITION DEEP-SUBSTITUTE-TERM))
 (370 274 (:REWRITE DEFAULT-CDR))
 (352 8 (:DEFINITION BINDINGS-TO-CONST-ALIST))
 (299 251 (:REWRITE DEFAULT-CAR))
 (168 168 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-1))
 (88 8 (:DEFINITION NORMALIZE-FORMALS/ACTUALS))
 (64 24 (:DEFINITION QUOTEP))
 (40 8 (:DEFINITION QUOTE-LISTP))
 (40 8 (:DEFINITION LEN))
 (40 8 (:DEFINITION ASSOC-EQUAL))
 (32 16 (:DEFINITION MEMBER-EQUAL))
 (24 24 (:TYPE-PRESCRIPTION LEN))
 (16 16 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-0))
 (16 8 (:REWRITE DEFAULT-+-2))
 (8 8 (:TYPE-PRESCRIPTION QUOTE-LISTP))
 (8 8 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (8 8 (:TYPE-PRESCRIPTION BINDINGS-TO-CONST-ALIST))
 (8 8 (:REWRITE DEFAULT-+-1))
 )
(TRUE-LISTP-DEEP-SUBSTITUTE-TERM-LIST)
(FLAG-LEMMA-FOR-LEN-OF-DEEP-SUBSTITUTE-TERM-LIST
 (675 5 (:DEFINITION DEEP-SUBSTITUTE-TERM))
 (321 184 (:REWRITE DEFAULT-CDR))
 (260 155 (:REWRITE DEFAULT-CAR))
 (220 5 (:DEFINITION BINDINGS-TO-CONST-ALIST))
 (105 105 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-1))
 (100 5 (:DEFINITION NORMALIZE-FORMALS/ACTUALS))
 (58 29 (:REWRITE DEFAULT-+-2))
 (50 15 (:DEFINITION QUOTEP))
 (35 5 (:DEFINITION QUOTE-LISTP))
 (29 29 (:REWRITE DEFAULT-+-1))
 (25 5 (:DEFINITION ASSOC-EQUAL))
 (20 10 (:DEFINITION MEMBER-EQUAL))
 (10 10 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-0))
 (5 5 (:TYPE-PRESCRIPTION QUOTE-LISTP))
 (5 5 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (5 5 (:TYPE-PRESCRIPTION BINDINGS-TO-CONST-ALIST))
 )
(LEN-OF-DEEP-SUBSTITUTE-TERM-LIST)
(BINDINGS-TO-CONST-ALIST-PSEUDO-TERM-VAL-ALISTP
 (1236 69 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (415 69 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (272 272 (:REWRITE DEFAULT-CDR))
 (252 252 (:REWRITE DEFAULT-CAR))
 (185 37 (:DEFINITION LEN))
 (178 178 (:TYPE-PRESCRIPTION LEN))
 (171 15 (:REWRITE PSEUDO-TERMP-CADR-FROM-PSEUDO-TERM-LISTP))
 (156 19 (:DEFINITION LENGTH))
 (155 155 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (152 152 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (122 27 (:DEFINITION TRUE-LISTP))
 (115 64 (:REWRITE PSEUDO-TERMP-OPENER))
 (74 74 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (74 37 (:REWRITE DEFAULT-+-2))
 (61 61 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (45 9 (:DEFINITION SYMBOL-LISTP))
 (37 37 (:REWRITE DEFAULT-+-1))
 (34 17 (:REWRITE PSEUDO-TERM-VAL-ALISTP-OF-ATOM))
 (33 33 (:TYPE-PRESCRIPTION SYMBOL-LISTP))
 (17 17 (:TYPE-PRESCRIPTION BINDINGS-TO-CONST-ALIST))
 (9 9 (:REWRITE DEFAULT-COERCE-2))
 (9 9 (:REWRITE DEFAULT-COERCE-1))
 )
(PSEUDO-TERMP-OF-CONS-TERM1-MV2)
(FLAG-LEMMA-FOR-PSEUDO-TERMP-DEEP-SUBSTITUTE-TERM
 (7972 6253 (:REWRITE DEFAULT-CDR))
 (6713 5597 (:REWRITE DEFAULT-CAR))
 (2240 112 (:DEFINITION NORMALIZE-FORMALS/ACTUALS))
 (1839 1817 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (1779 1779 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (1716 858 (:REWRITE DEFAULT-+-2))
 (1014 1014 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (858 858 (:REWRITE DEFAULT-+-1))
 (477 194 (:DEFINITION MEMBER-EQUAL))
 (221 17 (:REWRITE NOT-ASSOC-BINDINGS-TO-CONST-ALIST-WHEN-NOT-MEMBER-FORMALS))
 (187 187 (:REWRITE DEFAULT-COERCE-2))
 (187 187 (:REWRITE DEFAULT-COERCE-1))
 (51 51 (:REWRITE PSEUDO-TERM-VAL-ALISTP-OF-ATOM))
 (12 12 (:TYPE-PRESCRIPTION CONS-TERM))
 (1 1 (:REWRITE CONS-TERM1-MV2-WHEN-UNCHANGED))
 )
(PSEUDO-TERMP-DEEP-SUBSTITUTE-TERM)
(PSEUDO-TERM-LISTP-DEEP-SUBSTITUTE-TERM-LIST)
(PSEUDO-TERM-VAL-ALISTP-IMPL-ALISTP
 (432 16 (:REWRITE PSEUDO-TERMP-CADR-FROM-PSEUDO-TERM-LISTP))
 (408 32 (:REWRITE PSEUDO-TERMP-CAR))
 (368 56 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (160 32 (:DEFINITION LEN))
 (148 148 (:REWRITE DEFAULT-CDR))
 (146 146 (:REWRITE DEFAULT-CAR))
 (138 53 (:REWRITE PSEUDO-TERMP-OPENER))
 (104 104 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (102 102 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (64 32 (:REWRITE DEFAULT-+-2))
 (45 45 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (32 32 (:REWRITE DEFAULT-+-1))
 (32 16 (:DEFINITION TRUE-LISTP))
 (24 8 (:DEFINITION SYMBOL-LISTP))
 (8 8 (:REWRITE DEFAULT-COERCE-2))
 (8 8 (:REWRITE DEFAULT-COERCE-1))
 )
(UNQUOTE-GUARD-WHEN-PSEUDO-TERM-LISTP
 (54 2 (:DEFINITION PSEUDO-TERM-LISTP))
 (14 2 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (13 13 (:REWRITE DEFAULT-CAR))
 (12 2 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (12 2 (:REWRITE PSEUDO-TERMP-CAR))
 (11 5 (:REWRITE PSEUDO-TERMP-OPENER))
 (8 8 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (8 8 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (5 5 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (5 5 (:REWRITE DEFAULT-CDR))
 )
(DEEP-SUBSTITUTE-TERM
 (2370 782 (:REWRITE DEFAULT-CAR))
 (1663 817 (:REWRITE DEFAULT-CDR))
 (1101 155 (:REWRITE PSEUDO-TERMP-CAR))
 (781 38 (:REWRITE PSEUDO-TERMP-CADR-FROM-PSEUDO-TERM-LISTP))
 (411 204 (:REWRITE PSEUDO-TERMP-OPENER))
 (394 197 (:REWRITE DEFAULT-+-2))
 (268 268 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (197 197 (:REWRITE DEFAULT-+-1))
 (193 193 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (188 188 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (77 11 (:DEFINITION QUOTE-LISTP))
 (44 1 (:DEFINITION BINDINGS-TO-CONST-ALIST))
 (36 36 (:REWRITE DEFAULT-COERCE-2))
 (36 36 (:REWRITE DEFAULT-COERCE-1))
 (21 21 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-1))
 (18 6 (:DEFINITION DEEP-SUBSTITUTE-TERM-LIST))
 (17 17 (:REWRITE PSEUDO-TERM-VAL-ALISTP-OF-ATOM))
 (14 14 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-0))
 (9 7 (:DEFINITION MEMBER-EQUAL))
 (1 1 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 )
(DEEP-SUBSTITUTE-TERM/ALIST
 (455 187 (:REWRITE DEFAULT-+-2))
 (263 187 (:REWRITE DEFAULT-+-1))
 (128 32 (:DEFINITION INTEGER-ABS))
 (128 16 (:DEFINITION LENGTH))
 (80 16 (:DEFINITION LEN))
 (53 38 (:REWRITE DEFAULT-<-2))
 (42 38 (:REWRITE DEFAULT-<-1))
 (32 32 (:REWRITE DEFAULT-UNARY-MINUS))
 (16 16 (:REWRITE DEFAULT-REALPART))
 (16 16 (:REWRITE DEFAULT-NUMERATOR))
 (16 16 (:REWRITE DEFAULT-IMAGPART))
 (16 16 (:REWRITE DEFAULT-DENOMINATOR))
 (16 16 (:REWRITE DEFAULT-COERCE-2))
 (16 16 (:REWRITE DEFAULT-COERCE-1))
 )
(DEEP-SUBSTITUTE/ALIST-FLG
 (455 187 (:REWRITE DEFAULT-+-2))
 (263 187 (:REWRITE DEFAULT-+-1))
 (128 32 (:DEFINITION INTEGER-ABS))
 (128 16 (:DEFINITION LENGTH))
 (80 16 (:DEFINITION LEN))
 (53 38 (:REWRITE DEFAULT-<-2))
 (42 38 (:REWRITE DEFAULT-<-1))
 (32 32 (:REWRITE DEFAULT-UNARY-MINUS))
 (16 16 (:REWRITE DEFAULT-REALPART))
 (16 16 (:REWRITE DEFAULT-NUMERATOR))
 (16 16 (:REWRITE DEFAULT-IMAGPART))
 (16 16 (:REWRITE DEFAULT-DENOMINATOR))
 (16 16 (:REWRITE DEFAULT-COERCE-2))
 (16 16 (:REWRITE DEFAULT-COERCE-1))
 )
(FLAG::FLAG-EQUIV-LEMMA)
(DEEP-SUBSTITUTE/ALIST-FLG-EQUIVALENCES)
(FLAG-LEMMA-FOR-DEEP-SUBSTITUTE-TERM/ALIST-CORRECT
 (7325 4211 (:REWRITE DEFAULT-CDR))
 (6068 4235 (:REWRITE DEFAULT-CAR))
 (4588 242 (:DEFINITION NORMALIZE-FORMALS/ACTUALS))
 (1342 22 (:REWRITE EVAL-LIST-UNDER-NORMALIZE-FORMALS/ACTUALS))
 (1100 44 (:DEFINITION PSEUDO-TERM-LISTP))
 (944 399 (:DEFINITION MEMBER-EQUAL))
 (638 22 (:REWRITE NORMALIZE-FORMALS/ACTUALS-PSEUDO-TERM-LISTP))
 (429 33 (:REWRITE NOT-ASSOC-BINDINGS-TO-CONST-ALIST-WHEN-NOT-MEMBER-FORMALS))
 (371 53 (:DEFINITION PAIRLIS$))
 (308 308 (:TYPE-PRESCRIPTION PSEUDO-TERM-LISTP))
 (308 44 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (264 264 (:TYPE-PRESCRIPTION PSEUDO-TERMP))
 (212 53 (:REWRITE CTERM-EV-LST-OF-CONS))
 (212 53 (:REWRITE CTERM-EV-LST-OF-ATOM))
 (152 76 (:REWRITE DEFAULT-+-2))
 (132 88 (:REWRITE PSEUDO-TERMP-OPENER))
 (110 88 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (88 88 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (88 88 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (88 44 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (88 44 (:REWRITE PSEUDO-TERMP-CAR))
 (76 76 (:REWRITE DEFAULT-+-1))
 )
(DEEP-SUBSTITUTE-TERM/ALIST-CORRECT)
(DEEP-SUBSTITUTE-TERM-LIST/ALIST-CORRECT)
(FLAG-LEMMA-FOR-DEEP-SUBSTITUTE-TERM-CORRECT
 (266725 192672 (:REWRITE DEFAULT-CDR))
 (216932 158971 (:REWRITE DEFAULT-CAR))
 (201654 13833 (:REWRITE PSEUDO-TERMP-CADR-FROM-PSEUDO-TERM-LISTP))
 (57000 2850 (:DEFINITION NORMALIZE-FORMALS/ACTUALS))
 (45836 22918 (:REWRITE DEFAULT-+-2))
 (34425 34425 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (22918 22918 (:REWRITE DEFAULT-+-1))
 (22869 4184 (:DEFINITION SYMBOL-LISTP))
 (20461 20461 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (11250 5596 (:DEFINITION MEMBER-EQUAL))
 (4322 4322 (:REWRITE DEFAULT-COERCE-2))
 (4322 4322 (:REWRITE DEFAULT-COERCE-1))
 (3195 2692 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (3127 2669 (:REWRITE CTERM-EV-OF-<-CALL))
 (406 406 (:REWRITE PSEUDO-TERM-VAL-ALISTP-OF-ATOM))
 (383 63 (:DEFINITION PAIRLIS$))
 (312 24 (:REWRITE NOT-ASSOC-BINDINGS-TO-CONST-ALIST-WHEN-NOT-MEMBER-FORMALS))
 (299 299 (:TYPE-PRESCRIPTION KWOTE-LST))
 (69 3 (:REWRITE NORMALIZE-FORMALS/ACTUALS-CORRECT))
 (32 8 (:DEFINITION KWOTE-LST))
 (8 8 (:DEFINITION KWOTE))
 (6 6 (:TYPE-PRESCRIPTION PAIRLIS$))
 (1 1 (:REWRITE CONS-TERM1-MV2-WHEN-UNCHANGED))
 )
(DEEP-SUBSTITUTE-TERM-CORRECT)
(DEEP-SUBSTITUTE-TERM-LIST-CORRECT)
(DEEP-SUBSTITUTE-TERM-DISJOIN-CORRECT
 (5282 32 (:DEFINITION PSEUDO-TERMP))
 (3934 204 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (2814 21 (:DEFINITION DEEP-SUBSTITUTE-TERM))
 (2086 1515 (:REWRITE DEFAULT-CDR))
 (1999 1552 (:REWRITE DEFAULT-CAR))
 (1668 126 (:REWRITE PSEUDO-TERMP-CAR))
 (924 21 (:DEFINITION BINDINGS-TO-CONST-ALIST))
 (905 181 (:DEFINITION LEN))
 (800 96 (:DEFINITION LENGTH))
 (572 60 (:REWRITE PSEUDO-TERMP-CADR-FROM-PSEUDO-TERM-LISTP))
 (441 441 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-1))
 (420 21 (:DEFINITION NORMALIZE-FORMALS/ACTUALS))
 (412 94 (:DEFINITION TRUE-LISTP))
 (392 212 (:REWRITE PSEUDO-TERMP-OPENER))
 (362 181 (:REWRITE DEFAULT-+-2))
 (358 358 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (252 252 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (210 63 (:DEFINITION QUOTEP))
 (204 40 (:DEFINITION SYMBOL-LISTP))
 (200 200 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (195 39 (:DEFINITION ASSOC-EQUAL))
 (181 181 (:REWRITE DEFAULT-+-1))
 (152 152 (:TYPE-PRESCRIPTION SYMBOL-LISTP))
 (147 21 (:DEFINITION QUOTE-LISTP))
 (126 21 (:REWRITE LEN-OF-DEEP-SUBSTITUTE-TERM-LIST))
 (90 61 (:REWRITE CTERM-EV-DISJOIN-ATOM))
 (87 87 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (87 87 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-LAMBDA))
 (87 87 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-IF-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (87 87 (:REWRITE CTERM-EV-OF-<-CALL))
 (85 85 (:REWRITE CTERM-EV-OF-VARIABLE))
 (84 42 (:DEFINITION MEMBER-EQUAL))
 (42 42 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-0))
 (40 40 (:REWRITE DEFAULT-COERCE-2))
 (40 40 (:REWRITE DEFAULT-COERCE-1))
 (21 21 (:TYPE-PRESCRIPTION QUOTE-LISTP))
 (21 21 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (21 21 (:TYPE-PRESCRIPTION BINDINGS-TO-CONST-ALIST))
 (18 18 (:REWRITE PSEUDO-TERM-VAL-ALISTP-OF-ATOM))
 )
(PSEUDO-TERM-VAL-ALISTP-OF-COLLECT-SIMPLE-EQUALITY-HYPS
 (1859 1859 (:REWRITE DEFAULT-CDR))
 (1585 1585 (:REWRITE DEFAULT-CAR))
 (1017 1017 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (923 185 (:DEFINITION LEN))
 (851 851 (:TYPE-PRESCRIPTION LEN))
 (802 95 (:DEFINITION LENGTH))
 (631 141 (:DEFINITION TRUE-LISTP))
 (366 183 (:REWRITE DEFAULT-+-2))
 (348 348 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (345 345 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (194 42 (:DEFINITION SYMBOL-LISTP))
 (183 183 (:REWRITE DEFAULT-+-1))
 (136 136 (:TYPE-PRESCRIPTION SYMBOL-LISTP))
 (98 48 (:REWRITE PSEUDO-TERM-VAL-ALISTP-OF-ATOM))
 (44 44 (:REWRITE DEFAULT-COERCE-2))
 (44 44 (:REWRITE DEFAULT-COERCE-1))
 )
(CONSTANT-PROP-NON-EQUALITY-HYPS)
(CONSTANT-PROP-NON-EQUALITY-HYPS-CORRECT
 (10308 62 (:DEFINITION PSEUDO-TERMP))
 (7771 393 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (3254 243 (:REWRITE PSEUDO-TERMP-CAR))
 (1771 1771 (:REWRITE DEFAULT-CAR))
 (1685 1685 (:REWRITE DEFAULT-CDR))
 (1560 312 (:DEFINITION LEN))
 (1550 186 (:DEFINITION LENGTH))
 (1542 1542 (:TYPE-PRESCRIPTION LEN))
 (1086 118 (:REWRITE PSEUDO-TERMP-CADR-FROM-PSEUDO-TERM-LISTP))
 (816 184 (:DEFINITION TRUE-LISTP))
 (741 404 (:REWRITE PSEUDO-TERMP-OPENER))
 (680 680 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (624 312 (:REWRITE DEFAULT-+-2))
 (504 504 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (402 78 (:DEFINITION SYMBOL-LISTP))
 (382 382 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (312 312 (:REWRITE DEFAULT-+-1))
 (302 302 (:TYPE-PRESCRIPTION SYMBOL-LISTP))
 (150 30 (:DEFINITION ASSOC-EQUAL))
 (133 133 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (133 133 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-LAMBDA))
 (133 133 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-IF-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (133 133 (:REWRITE CTERM-EV-OF-<-CALL))
 (131 131 (:REWRITE CTERM-EV-OF-VARIABLE))
 (122 89 (:REWRITE CTERM-EV-DISJOIN-ATOM))
 (78 78 (:REWRITE DEFAULT-COERCE-2))
 (78 78 (:REWRITE DEFAULT-COERCE-1))
 (33 33 (:TYPE-PRESCRIPTION CONSTANT-PROP-NON-EQUALITY-HYPS))
 (30 30 (:REWRITE PSEUDO-TERM-VAL-ALISTP-OF-ATOM))
 )
(CONSTANT-PROP-CP)
(CONSTANT-PROP-CP-CORRECT
 (178 1 (:DEFINITION CONSTANT-PROP-NON-EQUALITY-HYPS))
 (136 1 (:DEFINITION DEEP-SUBSTITUTE-TERM))
 (98 71 (:REWRITE DEFAULT-CDR))
 (82 61 (:REWRITE DEFAULT-CAR))
 (72 2 (:DEFINITION MATCH-SIMPLE-EQUALITY-HYP))
 (44 1 (:DEFINITION BINDINGS-TO-CONST-ALIST))
 (39 1 (:DEFINITION COLLECT-SIMPLE-EQUALITY-HYPS))
 (35 35 (:TYPE-PRESCRIPTION TRUE-LISTP-DEEP-SUBSTITUTE-TERM-LIST))
 (27 1 (:DEFINITION PSEUDO-TERM-LISTP))
 (21 21 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-1))
 (20 9 (:DEFINITION QUOTEP))
 (20 1 (:DEFINITION NORMALIZE-FORMALS/ACTUALS))
 (7 1 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (7 1 (:DEFINITION QUOTE-LISTP))
 (7 1 (:DEFINITION ASSOC-EQUAL))
 (6 1 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (6 1 (:REWRITE PSEUDO-TERMP-CAR))
 (6 1 (:REWRITE LEN-OF-DEEP-SUBSTITUTE-TERM-LIST))
 (5 1 (:DEFINITION LEN))
 (4 4 (:TYPE-PRESCRIPTION PSEUDO-TERMP))
 (4 4 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (4 4 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (4 2 (:DEFINITION MEMBER-EQUAL))
 (3 3 (:TYPE-PRESCRIPTION LEN))
 (3 2 (:REWRITE PSEUDO-TERMP-OPENER))
 (3 1 (:DEFINITION ALISTP))
 (2 2 (:TYPE-PRESCRIPTION NORMALIZE-FORMALS/ACTUALS-TYPE-0))
 (2 2 (:TYPE-PRESCRIPTION COLLECT-SIMPLE-EQUALITY-HYPS))
 (2 2 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (2 1 (:REWRITE DEFAULT-+-2))
 (1 1 (:TYPE-PRESCRIPTION QUOTE-LISTP))
 (1 1 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (1 1 (:TYPE-PRESCRIPTION BINDINGS-TO-CONST-ALIST))
 (1 1 (:REWRITE DEFAULT-+-1))
 (1 1 (:REWRITE CTERM-EV-OF-VARIABLE))
 (1 1 (:REWRITE CTERM-EV-OF-UNARY-/-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-UNARY---CALL))
 (1 1 (:REWRITE CTERM-EV-OF-SYMBOLP-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-SYMBOL-PACKAGE-NAME-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-SYMBOL-NAME-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-STRINGP-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-REALPART-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-RATIONALP-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-QUOTE))
 (1 1 (:REWRITE CTERM-EV-OF-NUMERATOR-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-NOT-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-LAMBDA))
 (1 1 (:REWRITE CTERM-EV-OF-INTERN-IN-PACKAGE-OF-SYMBOL-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-INTEGERP-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-IMAGPART-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-IF-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-EQUAL-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-DENOMINATOR-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-CONSP-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-CONS-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-COMPLEX-RATIONALP-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-COMPLEX-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-COERCE-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-CODE-CHAR-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-CHARACTERP-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-CHAR-CODE-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-CDR-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-CAR-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-BINARY-+-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-BINARY-*-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-ACL2-NUMBERP-CALL))
 (1 1 (:REWRITE CTERM-EV-OF-<-CALL))
 (1 1 (:REWRITE CTERM-EV-DISJOIN-ATOM))
 )
