(EXAMPLE0)
(FORM-1-RULE)
(EXAMPLE1)
(EXAMPLE2)
(FORM-2-RULE)
(EXAMPLE3)
(FORM-3-RULE-1
 (1060 40 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-1))
 (720 40 (:DEFINITION LOOP$-AS))
 (476 476 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (438 438 (:REWRITE DEFAULT-CDR))
 (348 8 (:REWRITE TRUE-LIST-LISTP-IMPLIES-TRUE-LISTP-XXX))
 (332 20 (:DEFINITION TRUE-LIST-LISTP))
 (320 320 (:REWRITE DEFAULT-CAR))
 (240 40 (:DEFINITION CDR-LOOP$-AS-TUPLE))
 (240 40 (:DEFINITION CAR-LOOP$-AS-TUPLE))
 (200 40 (:DEFINITION EMPTY-LOOP$-AS-TUPLEP))
 (160 32 (:DEFINITION TRUE-LISTP))
 (134 134 (:REWRITE TRANSITIVITY-OF-SUBSETP-EQUAL))
 (128 128 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (80 80 (:TYPE-PRESCRIPTION LOOP$-AS))
 (64 64 (:TYPE-PRESCRIPTION TRUE-LIST-LISTP))
 (40 40 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-3))
 (40 40 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-2))
 (8 8 (:REWRITE ALWAYS$-P-LST-IMPLIES-P-ELEMENT-COROLLARY))
 )
(EXAMPLE4)
(MY-CONS)
(FORM-3-RULE-2)
(EXAMPLE5)
(EXAMPLE6)
(SET-EQUALP-IMPLIES-SET-EQUALP-MY-CONS-2
 (636 24 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-1))
 (432 24 (:DEFINITION LOOP$-AS))
 (182 182 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (182 182 (:REWRITE DEFAULT-CDR))
 (154 154 (:REWRITE DEFAULT-CAR))
 (144 24 (:DEFINITION CDR-LOOP$-AS-TUPLE))
 (144 24 (:DEFINITION CAR-LOOP$-AS-TUPLE))
 (128 6 (:REWRITE TRUE-LIST-LISTP-IMPLIES-TRUE-LISTP-XXX))
 (120 24 (:DEFINITION EMPTY-LOOP$-AS-TUPLEP))
 (112 8 (:DEFINITION TRUE-LIST-LISTP))
 (50 10 (:DEFINITION TRUE-LISTP))
 (48 48 (:TYPE-PRESCRIPTION LOOP$-AS))
 (40 40 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (34 34 (:TYPE-PRESCRIPTION TRUE-LIST-LISTP))
 (24 24 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-3))
 (24 24 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-2))
 (6 6 (:REWRITE ALWAYS$-P-LST-IMPLIES-P-ELEMENT-COROLLARY))
 (2 2 (:REWRITE SUBSETP-REFLEXIVE))
 )
(EXAMPLE7)
