File: subtractor%40useless-runes.lsp

package info (click to toggle)
acl2 8.5dfsg-5
  • links: PTS
  • area: main
  • in suites: bookworm
  • size: 991,452 kB
  • sloc: lisp: 15,567,759; javascript: 22,820; cpp: 13,929; ansic: 12,092; perl: 7,150; java: 4,405; xml: 3,884; makefile: 3,507; sh: 3,187; ruby: 2,633; ml: 763; python: 746; yacc: 723; awk: 295; csh: 186; php: 171; lex: 154; tcl: 49; asm: 23; haskell: 17
file content (527 lines) | stat: -rw-r--r-- 20,826 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
(ADE::RIPPLE-SUB*)
(ADE::RIPPLE-SUB*$DESTRUCTURE
 (120 12 (:DEFINITION BINARY-APPEND))
 (87 24 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (22 22 (:REWRITE DEFAULT-CDR))
 (19 12 (:REWRITE DEFAULT-+-2))
 (17 17 (:REWRITE DEFAULT-CAR))
 (12 12 (:REWRITE DEFAULT-+-1))
 (7 7 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(ADE::NOT-PRIMP-RIPPLE-SUB)
(ADE::RIPPLE-SUB$NETLIST)
(ADE::RIPPLE-SUB&)
(ADE::CHECK-RIPPLE-SUB$NETLIST-64)
(ADE::RIPPLE-SUB$VALUE
 (160 12 (:REWRITE ADE::SINGLETON-ASSOC-EQ-VALUES))
 (145 72 (:REWRITE DEFAULT-+-2))
 (119 17 (:DEFINITION BINARY-APPEND))
 (74 72 (:REWRITE DEFAULT-+-1))
 (60 4 (:DEFINITION ATOM))
 (55 12 (:REWRITE ADE::DISJOINT-SIS-SAME-SYM-2))
 (55 12 (:REWRITE ADE::DISJOINT-SIS-SAME-SYM-1))
 (35 35 (:TYPE-PRESCRIPTION PAIRLIS$))
 (30 2 (:REWRITE APPEND-ATOM-UNDER-LIST-EQUIV))
 (22 2 (:REWRITE LEN-OF-APPEND))
 (20 20 (:TYPE-PRESCRIPTION ADE::BVP))
 (13 7 (:REWRITE DEFAULT-<-2))
 (12 6 (:REWRITE ADE::FV-NOT=V-NOT))
 (12 4 (:REWRITE ADE::BV-IS-TRUE-LIST))
 (11 1 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (9 3 (:REWRITE ADE::FV-ADDER=V-ADDER))
 (8 7 (:REWRITE DEFAULT-<-1))
 (8 4 (:REWRITE TAKE-WHEN-ATOM))
 (8 2 (:REWRITE ADE::NOT-EQUAL-WITH-SI-OF-DIFF-SYMBOL . 2))
 (8 2 (:DEFINITION TRUE-LISTP))
 (4 4 (:REWRITE ADE::NTHCDR-OF-POS-CONST-IDX))
 (4 4 (:LINEAR LEN-WHEN-PREFIXP))
 (2 2 (:REWRITE DEFAULT-SYMBOL-NAME))
 (2 2 (:LINEAR ADE::A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))
 (1 1 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (1 1 (:REWRITE ADE::ASSOC-EQ-VALUE-CONS-2))
 )
(ADE::RIPPLE-ADD-2-COMP-SUB-AUX-1
 (3441 37 (:REWRITE MOD-ZERO . 2))
 (2884 68 (:REWRITE |(* (+ x y) z)|))
 (2874 15 (:LINEAR MOD-BOUNDS-3))
 (2166 198 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (1644 1644 (:TYPE-PRESCRIPTION NOT-INTEGERP-3B))
 (1644 1644 (:TYPE-PRESCRIPTION NOT-INTEGERP-2B))
 (1644 1644 (:TYPE-PRESCRIPTION NOT-INTEGERP-1B))
 (1623 409 (:TYPE-PRESCRIPTION MOD-ZERO . 1))
 (1623 409 (:TYPE-PRESCRIPTION MOD-POSITIVE . 2))
 (1596 228 (:REWRITE DEFAULT-UNARY-/))
 (1318 37 (:REWRITE MOD-X-Y-=-X . 4))
 (1318 37 (:REWRITE MOD-X-Y-=-X . 3))
 (1270 37 (:REWRITE MOD-ZERO . 3))
 (1261 383 (:REWRITE DEFAULT-+-2))
 (1237 308 (:REWRITE DEFAULT-UNARY-MINUS))
 (1201 355 (:META META-INTEGERP-CORRECT))
 (1107 252 (:REWRITE DEFAULT-*-2))
 (787 383 (:REWRITE DEFAULT-+-1))
 (675 10 (:REWRITE |(* (if a b c) x)|))
 (507 6 (:REWRITE |(< x (if a b c))|))
 (507 6 (:REWRITE |(< (if a b c) x)|))
 (422 77 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-EQUAL))
 (409 409 (:TYPE-PRESCRIPTION MOD-POSITIVE . 1))
 (409 409 (:TYPE-PRESCRIPTION MOD-NONPOSITIVE))
 (409 409 (:TYPE-PRESCRIPTION MOD-NEGATIVE . 2))
 (409 409 (:TYPE-PRESCRIPTION MOD-NEGATIVE . 1))
 (401 72 (:REWRITE INTEGERP-+-REDUCE-LEADING-RATIONAL-CONSTANT))
 (383 383 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (373 8 (:REWRITE FLOOR-ZERO . 4))
 (373 8 (:REWRITE FLOOR-ZERO . 3))
 (330 27 (:LINEAR EXPT->-1-ONE))
 (254 254 (:REWRITE DEFAULT-EXPT-2))
 (254 254 (:REWRITE DEFAULT-EXPT-1))
 (254 254 (:REWRITE |(expt x (- n))|))
 (254 254 (:REWRITE |(expt 2^i n)|))
 (254 254 (:REWRITE |(expt 1/c n)|))
 (254 254 (:REWRITE |(expt (- x) n)|))
 (252 252 (:REWRITE DEFAULT-*-1))
 (252 30 (:LINEAR MOD-BOUNDS-2))
 (251 7 (:REWRITE MOD-+-CANCEL-0-WEAK))
 (234 198 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (234 54 (:LINEAR EXPT-IS-INCREASING-FOR-BASE->-1))
 (231 231 (:REWRITE REMOVE-WEAK-INEQUALITIES-TWO))
 (231 39 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (228 228 (:REWRITE NORMALIZE-TERMS-SUCH-AS-1/AX+BX))
 (226 226 (:REWRITE |(+ c (+ d x))|))
 (214 67 (:REWRITE |(< d (+ c x))|))
 (212 53 (:REWRITE SIMPLIFY-MOD-+-MOD-WEAK))
 (212 53 (:REWRITE SIMPLIFY-MOD-+-MINUS-MOD))
 (198 198 (:REWRITE |(< (- x) (- y))|))
 (191 74 (:REWRITE MOD-COMPLETION))
 (189 189 (:REWRITE REMOVE-WEAK-INEQUALITIES-ONE))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-ZERO . 2))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-ZERO . 1))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-POSITIVE . 2))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-POSITIVE . 1))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-NONPOSITIVE-2))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-NONPOSITIVE-1))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-NONNEGATIVE-2))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-NONNEGATIVE-1))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-NEGATIVE . 2))
 (166 166 (:TYPE-PRESCRIPTION FLOOR-NEGATIVE . 1))
 (154 154 (:TYPE-PRESCRIPTION NOT-INTEGERP-3A))
 (154 154 (:TYPE-PRESCRIPTION NOT-INTEGERP-2A))
 (154 154 (:TYPE-PRESCRIPTION NOT-INTEGERP-1A))
 (154 37 (:REWRITE MOD-CANCEL-*))
 (148 37 (:REWRITE MOD-NEG))
 (148 37 (:REWRITE MOD-MINUS-2))
 (136 136 (:REWRITE |(integerp (* c x))|))
 (130 112 (:REWRITE SIMPLIFY-SUMS-<))
 (122 122 (:REWRITE |(- (* c x))|))
 (121 112 (:REWRITE DEFAULT-<-2))
 (121 112 (:REWRITE DEFAULT-<-1))
 (90 27 (:LINEAR EXPT-X->=-X))
 (90 27 (:LINEAR EXPT-X->-X))
 (77 77 (:REWRITE |(equal (- x) (- y))|))
 (59 8 (:REWRITE FLOOR-ZERO . 2))
 (54 54 (:LINEAR EXPT-IS-WEAKLY-INCREASING-FOR-BASE->-1))
 (54 54 (:LINEAR EXPT-IS-WEAKLY-DECREASING-FOR-POS-BASE-<-1))
 (54 54 (:LINEAR EXPT-IS-DECREASING-FOR-POS-BASE-<-1))
 (48 48 (:REWRITE |(< 0 (- x))|))
 (46 46 (:REWRITE |(< (+ c x) d)|))
 (43 43 (:REWRITE |(< (- x) 0)|))
 (42 42 (:REWRITE |(equal (+ c x) d)|))
 (37 37 (:REWRITE MOD-X-Y-=-X . 2))
 (35 35 (:REWRITE |(equal (- x) 0)|))
 (35 8 (:REWRITE FLOOR-MINUS-WEAK))
 (35 8 (:REWRITE FLOOR-COMPLETION))
 (35 8 (:REWRITE FLOOR-CANCEL-*-WEAK))
 (32 8 (:REWRITE FLOOR-MINUS-2))
 (27 27 (:LINEAR EXPT->-1-TWO))
 (27 27 (:LINEAR EXPT-<-1-TWO))
 (27 27 (:LINEAR EXPT-<-1-ONE))
 (22 22 (:REWRITE FOLD-CONSTS-IN-+))
 (5 5 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-A+AB))
 (3 3 (:REWRITE |(< d (+ c x y))|))
 (3 3 (:REWRITE |(< (+ c x y) d)|))
 (2 2 (:REWRITE |(equal (+ c x y) d)|))
 (1 1 (:REWRITE |(equal (+ d x) (+ c y))|))
 (1 1 (:REWRITE |(equal (+ c x) (+ d y))|))
 )
(ADE::RIPPLE-ADD-2-COMP-SUB-AUX-2
 (641 29 (:LINEAR EXPT-X->=-X))
 (641 29 (:LINEAR EXPT-X->-X))
 (242 242 (:LINEAR LEN-WHEN-PREFIXP))
 (168 8 (:REWRITE |(< d (+ c x))|))
 (166 83 (:REWRITE SIMPLIFY-SUMS-<))
 (166 83 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (166 83 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (166 83 (:REWRITE DEFAULT-<-2))
 (151 65 (:REWRITE DEFAULT-+-2))
 (121 121 (:LINEAR ADE::A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))
 (104 52 (:REWRITE DEFAULT-*-2))
 (91 91 (:REWRITE REMOVE-WEAK-INEQUALITIES-TWO))
 (91 13 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-EQUAL))
 (85 83 (:REWRITE DEFAULT-CDR))
 (83 83 (:REWRITE DEFAULT-<-1))
 (83 83 (:REWRITE |(< (- x) (- y))|))
 (78 65 (:REWRITE DEFAULT-+-1))
 (77 11 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (65 65 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (58 58 (:LINEAR EXPT-IS-WEAKLY-INCREASING-FOR-BASE->-1))
 (58 58 (:LINEAR EXPT-IS-WEAKLY-DECREASING-FOR-POS-BASE-<-1))
 (58 58 (:LINEAR EXPT-IS-INCREASING-FOR-BASE->-1))
 (58 58 (:LINEAR EXPT-IS-DECREASING-FOR-POS-BASE-<-1))
 (58 29 (:LINEAR EXPT-<-1-TWO))
 (52 52 (:REWRITE NORMALIZE-FACTORS-GATHER-EXPONENTS))
 (52 52 (:REWRITE DEFAULT-*-1))
 (46 45 (:REWRITE DEFAULT-CAR))
 (41 13 (:REWRITE |(equal (+ c x) d)|))
 (33 33 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-A+AB))
 (33 33 (:REWRITE |(< 0 (- x))|))
 (30 15 (:REWRITE DEFAULT-EXPT-2))
 (30 15 (:REWRITE |(expt 2^i n)|))
 (29 29 (:LINEAR EXPT->-1-TWO))
 (29 29 (:LINEAR EXPT-<-1-ONE))
 (24 12 (:REWRITE |(equal (+ c x y) d)|))
 (15 15 (:REWRITE FOLD-CONSTS-IN-+))
 (15 15 (:REWRITE DEFAULT-EXPT-1))
 (15 15 (:REWRITE |(expt x (- n))|))
 (15 15 (:REWRITE |(expt 1/c n)|))
 (15 15 (:REWRITE |(expt (- x) n)|))
 (13 13 (:REWRITE |(equal (- x) (- y))|))
 (9 9 (:REWRITE ARITH-NORMALIZE-ADDENDS))
 (5 5 (:REWRITE |arith (expt x c)|))
 (4 4 (:REWRITE |arith (expt x (- n))|))
 (4 4 (:REWRITE |arith (expt 1/c n)|))
 (4 4 (:REWRITE |arith (+ c (+ d x))|))
 (3 3 (:REWRITE ARITH-NORMALIZE-FACTORS-SCATTER-EXPONENTS))
 (2 1 (:REWRITE DEFAULT-UNARY-MINUS))
 (2 1 (:REWRITE |(equal (+ c x) (+ d y))|))
 (1 1 (:REWRITE |(equal (+ d x) (+ c y))|))
 )
(ADE::V-ADDER-SUB-WORKS
 (68 16 (:REWRITE DEFAULT-+-2))
 (21 16 (:REWRITE DEFAULT-+-1))
 (18 1 (:LINEAR EXPT->-1-ONE))
 (16 16 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (16 16 (:REWRITE NORMALIZE-ADDENDS))
 (16 1 (:LINEAR EXPT-X->=-X))
 (16 1 (:LINEAR EXPT-X->-X))
 (6 6 (:REWRITE FOLD-CONSTS-IN-+))
 (6 6 (:REWRITE DEFAULT-CDR))
 (6 3 (:REWRITE SIMPLIFY-SUMS-<))
 (6 3 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (6 3 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (6 3 (:REWRITE DEFAULT-<-2))
 (4 4 (:LINEAR LEN-WHEN-PREFIXP))
 (4 2 (:REWRITE DEFAULT-UNARY-MINUS))
 (4 2 (:REWRITE DEFAULT-EXPT-2))
 (3 3 (:REWRITE REMOVE-WEAK-INEQUALITIES-TWO))
 (3 3 (:REWRITE DEFAULT-<-1))
 (3 3 (:REWRITE |(< (- x) (- y))|))
 (3 2 (:REWRITE |(expt 2^i n)|))
 (3 1 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (3 1 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-EQUAL))
 (3 1 (:REWRITE PREFER-POSITIVE-ADDENDS-EQUAL))
 (2 2 (:REWRITE DEFAULT-EXPT-1))
 (2 2 (:REWRITE |(expt x (- n))|))
 (2 2 (:REWRITE |(expt 1/c n)|))
 (2 2 (:REWRITE |(expt (- x) n)|))
 (2 2 (:LINEAR EXPT-IS-WEAKLY-INCREASING-FOR-BASE->-1))
 (2 2 (:LINEAR EXPT-IS-WEAKLY-DECREASING-FOR-POS-BASE-<-1))
 (2 2 (:LINEAR EXPT-IS-INCREASING-FOR-BASE->-1))
 (2 2 (:LINEAR EXPT-IS-DECREASING-FOR-POS-BASE-<-1))
 (2 2 (:LINEAR ADE::A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))
 (2 1 (:LINEAR EXPT-<-1-TWO))
 (1 1 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-A+AB))
 (1 1 (:REWRITE |(equal (- x) (- y))|))
 (1 1 (:REWRITE |(< 0 (- x))|))
 (1 1 (:LINEAR EXPT->-1-TWO))
 (1 1 (:LINEAR EXPT-<-1-ONE))
 )
(ADE::V-TO-NAT-OF-REPEAT-NIL-IS-ZERO
 (135 21 (:REWRITE ZP-OPEN))
 (69 15 (:REWRITE CONSP-OF-REPEAT))
 (63 7 (:REWRITE |(< d (+ c x))|))
 (39 11 (:REWRITE DEFAULT-CDR))
 (34 6 (:REWRITE DEFAULT-CAR))
 (20 10 (:REWRITE DEFAULT-*-2))
 (19 19 (:REWRITE REMOVE-WEAK-INEQUALITIES-TWO))
 (19 19 (:REWRITE REMOVE-WEAK-INEQUALITIES-ONE))
 (14 9 (:REWRITE DEFAULT-+-2))
 (12 12 (:REWRITE SIMPLIFY-SUMS-<))
 (12 12 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (12 12 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (12 12 (:REWRITE DEFAULT-<-2))
 (12 12 (:REWRITE DEFAULT-<-1))
 (12 12 (:REWRITE |(< (- x) (- y))|))
 (10 10 (:REWRITE NORMALIZE-FACTORS-GATHER-EXPONENTS))
 (10 10 (:REWRITE DEFAULT-*-1))
 (10 5 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (10 5 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-EQUAL))
 (10 5 (:REWRITE PREFER-POSITIVE-ADDENDS-EQUAL))
 (10 5 (:REWRITE |(+ 0 x)|))
 (9 9 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (9 9 (:REWRITE NORMALIZE-ADDENDS))
 (9 9 (:REWRITE DEFAULT-+-1))
 (5 5 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-A+AB-=-0))
 (5 5 (:REWRITE |(equal (- x) 0)|))
 (5 5 (:REWRITE |(equal (- x) (- y))|))
 )
(ADE::V-TO-NAT-OF-TAKE
 (1076 203 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (874 96 (:REWRITE ZP-OPEN))
 (667 57 (:REWRITE CONSP-OF-TAKE))
 (655 100 (:REWRITE |(< d (+ c x))|))
 (502 260 (:REWRITE DEFAULT-+-2))
 (322 161 (:REWRITE DEFAULT-*-2))
 (282 260 (:REWRITE DEFAULT-+-1))
 (278 203 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (271 271 (:REWRITE REMOVE-WEAK-INEQUALITIES-TWO))
 (260 260 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (239 239 (:REWRITE REMOVE-WEAK-INEQUALITIES-ONE))
 (219 161 (:REWRITE DEFAULT-*-1))
 (214 171 (:REWRITE SIMPLIFY-SUMS-<))
 (214 171 (:REWRITE DEFAULT-<-2))
 (209 65 (:REWRITE |(+ c (+ d x))|))
 (203 203 (:REWRITE |(< (- x) (- y))|))
 (171 171 (:REWRITE DEFAULT-<-1))
 (164 164 (:LINEAR LEN-WHEN-PREFIXP))
 (161 161 (:REWRITE NORMALIZE-FACTORS-GATHER-EXPONENTS))
 (151 25 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (100 98 (:REWRITE DEFAULT-CAR))
 (96 12 (:LINEAR EXPT-X->=-X))
 (96 12 (:LINEAR EXPT-X->-X))
 (82 82 (:LINEAR ADE::A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))
 (82 41 (:TYPE-PRESCRIPTION TRUE-LISTP-NTHCDR-TYPE-PRESCRIPTION))
 (76 19 (:REWRITE CAR-OF-TAKE))
 (44 44 (:REWRITE TAKE-WHEN-ATOM))
 (41 41 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (40 40 (:REWRITE |arith (expt x c)|))
 (39 1 (:REWRITE |(< (if a b c) x)|))
 (38 38 (:REWRITE |arith (expt x (- n))|))
 (38 38 (:REWRITE |arith (expt 1/c n)|))
 (32 32 (:REWRITE |(< (+ c x) d)|))
 (30 30 (:REWRITE ARITH-NORMALIZE-FACTORS-SCATTER-EXPONENTS))
 (30 30 (:REWRITE ARITH-NORMALIZE-ADDENDS))
 (29 29 (:REWRITE |(equal (- x) (- y))|))
 (27 23 (:REWRITE |(equal (+ c x) d)|))
 (24 24 (:LINEAR EXPT-IS-WEAKLY-DECREASING-FOR-POS-BASE-<-1))
 (24 24 (:LINEAR EXPT-IS-INCREASING-FOR-BASE->-1))
 (24 24 (:LINEAR EXPT-IS-DECREASING-FOR-POS-BASE-<-1))
 (24 21 (:REWRITE |(expt 2^i n)|))
 (23 4 (:REWRITE |(equal (+ c x) (+ d y))|))
 (22 4 (:REWRITE |(equal (+ d x) (+ c y))|))
 (21 21 (:REWRITE |(expt x (- n))|))
 (21 21 (:REWRITE |(expt 1/c n)|))
 (21 21 (:REWRITE |(expt (- x) n)|))
 (21 15 (:DEFINITION NATP))
 (20 20 (:TYPE-PRESCRIPTION NOT-INTEGERP-3A))
 (20 20 (:TYPE-PRESCRIPTION NOT-INTEGERP-2A))
 (20 20 (:TYPE-PRESCRIPTION NOT-INTEGERP-1A))
 (20 20 (:REWRITE DEFAULT-EXPT-1))
 (18 18 (:REWRITE |arith (* c (* d x))|))
 (16 16 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-A+AB-<-0))
 (16 16 (:REWRITE |(< (- x) 0)|))
 (15 15 (:TYPE-PRESCRIPTION NATP))
 (15 2 (:DEFINITION NFIX))
 (13 13 (:REWRITE REDUCE-INTEGERP-+))
 (13 13 (:REWRITE INTEGERP-MINUS-X))
 (13 13 (:META META-INTEGERP-CORRECT))
 (12 12 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-A+AB))
 (12 12 (:REWRITE |(< 0 (- x))|))
 (12 12 (:LINEAR EXPT->-1-TWO))
 (12 12 (:LINEAR EXPT-<-1-TWO))
 (12 12 (:LINEAR EXPT-<-1-ONE))
 (7 2 (:REWRITE DEFAULT-UNARY-MINUS))
 (6 3 (:REWRITE |(equal (+ c x y) d)|))
 (4 4 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-A+AB-=-0))
 (4 4 (:REWRITE NORMALIZE-TERMS-SUCH-AS-1/AX+BX))
 (4 4 (:REWRITE DEFAULT-UNARY-/))
 (4 4 (:REWRITE |(equal (- x) 0)|))
 (4 1 (:REWRITE REPEAT-WHEN-ZP))
 (3 3 (:REWRITE FOLD-CONSTS-IN-+))
 (2 2 (:TYPE-PRESCRIPTION NOT-INTEGERP-3C))
 (2 2 (:TYPE-PRESCRIPTION NOT-INTEGERP-2C))
 (2 2 (:TYPE-PRESCRIPTION NOT-INTEGERP-1C))
 (2 2 (:REWRITE |(* c (* d x))|))
 (1 1 (:REWRITE |arith (+ c (+ d x))|))
 (1 1 (:REWRITE |(- (* c x))|))
 )
(ADE::NTHCDR-V-ADDER-SUB-INDUCT)
(ADE::NTHCDR-V-ADDER-SUB-1
 (361 19 (:REWRITE ZP-OPEN))
 (279 279 (:TYPE-PRESCRIPTION ADE::V-NOT))
 (239 174 (:REWRITE DEFAULT-CAR))
 (191 120 (:REWRITE DEFAULT-CDR))
 (73 46 (:REWRITE DEFAULT-+-2))
 (68 18 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (68 18 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-EQUAL))
 (68 18 (:REWRITE PREFER-POSITIVE-ADDENDS-EQUAL))
 (64 32 (:REWRITE SIMPLIFY-SUMS-<))
 (64 32 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (64 32 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (51 32 (:REWRITE DEFAULT-<-2))
 (46 46 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (46 46 (:REWRITE NORMALIZE-ADDENDS))
 (46 46 (:REWRITE DEFAULT-+-1))
 (45 36 (:REWRITE REMOVE-WEAK-INEQUALITIES-ONE))
 (45 32 (:REWRITE DEFAULT-<-1))
 (42 14 (:REWRITE ADE::BOOL-FIX-CAR-X=X))
 (36 36 (:REWRITE REMOVE-WEAK-INEQUALITIES-TWO))
 (36 36 (:LINEAR LEN-WHEN-PREFIXP))
 (32 32 (:REWRITE |(< (- x) (- y))|))
 (19 19 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-A+AB))
 (19 19 (:REWRITE |(< 0 (- x))|))
 (18 18 (:REWRITE |(equal (- x) (- y))|))
 (18 18 (:LINEAR ADE::A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))
 (16 16 (:TYPE-PRESCRIPTION BOOLEANP-OF-BOOL-FIX))
 (6 6 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-A+AB-<-0))
 (6 6 (:REWRITE |(< (- x) 0)|))
 )
(ADE::NTHCDR-V-ADDER-SUB-2
 (1212 1066 (:REWRITE DEFAULT-CDR))
 (919 474 (:REWRITE DEFAULT-+-2))
 (833 687 (:REWRITE DEFAULT-CAR))
 (512 256 (:REWRITE DEFAULT-*-2))
 (493 493 (:TYPE-PRESCRIPTION ADE::V-NOT))
 (474 474 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (474 474 (:REWRITE DEFAULT-+-1))
 (261 96 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (261 96 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-EQUAL))
 (261 96 (:REWRITE PREFER-POSITIVE-ADDENDS-EQUAL))
 (256 256 (:REWRITE NORMALIZE-FACTORS-GATHER-EXPONENTS))
 (256 256 (:REWRITE DEFAULT-*-1))
 (233 100 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (184 158 (:REWRITE REMOVE-WEAK-INEQUALITIES-TWO))
 (175 99 (:REWRITE DEFAULT-<-2))
 (166 158 (:REWRITE REMOVE-WEAK-INEQUALITIES-ONE))
 (154 99 (:REWRITE DEFAULT-<-1))
 (124 124 (:LINEAR LEN-WHEN-PREFIXP))
 (101 101 (:REWRITE |(< (- x) (- y))|))
 (96 96 (:REWRITE |(equal (- x) (- y))|))
 (66 22 (:REWRITE ADE::BOOL-FIX-CAR-X=X))
 (62 62 (:LINEAR ADE::A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))
 (54 18 (:REWRITE |(equal (+ d x) (+ c y))|))
 (54 18 (:REWRITE |(equal (+ c x) (+ d y))|))
 (47 47 (:DEFINITION ADE::B-NOT))
 (36 18 (:REWRITE |(equal (+ c x) d)|))
 (31 31 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-A+AB))
 (31 31 (:REWRITE |(< 0 (- x))|))
 (27 27 (:TYPE-PRESCRIPTION BOOLEANP-OF-BOOL-FIX))
 (22 22 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-A+AB-=-0))
 (22 22 (:REWRITE |(equal (- x) 0)|))
 (21 7 (:REWRITE |(< (+ d x) (+ c y))|))
 (21 7 (:REWRITE |(< (+ c x) (+ d y))|))
 (2 2 (:REWRITE NORMALIZE-TERMS-SUCH-AS-1/AX+BX))
 (2 2 (:REWRITE DEFAULT-UNARY-/))
 (2 2 (:REWRITE |(* (- x) y)|))
 (1 1 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-A+AB-<-0))
 (1 1 (:REWRITE |(< (- x) 0)|))
 )
(ADE::V-TO-NAT-OF-TAKE-OF-V-ADDER-SUB
 (204 76 (:REWRITE DEFAULT-+-2))
 (202 4 (:REWRITE TAKE-OF-TOO-MANY))
 (194 2 (:REWRITE TAKE-WHEN-PREFIXP))
 (176 2 (:DEFINITION TAKE))
 (158 4 (:REWRITE PREFIXP-WHEN-EQUAL-LENGTHS))
 (105 23 (:REWRITE SIMPLIFY-SUMS-<))
 (99 25 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (96 76 (:REWRITE DEFAULT-+-1))
 (88 4 (:REWRITE ADE::NTHCDR-V-ADDER-SUB-2))
 (78 6 (:REWRITE ADE::LEN-OF-V-ADDER))
 (76 76 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (74 4 (:REWRITE PREFIXP-WHEN-PREFIXP))
 (56 51 (:REWRITE DEFAULT-CDR))
 (39 16 (:REWRITE DEFAULT-UNARY-MINUS))
 (34 25 (:REWRITE REMOVE-WEAK-INEQUALITIES-ONE))
 (32 19 (:REWRITE DEFAULT-<-2))
 (28 28 (:REWRITE REMOVE-WEAK-INEQUALITIES-TWO))
 (28 28 (:REWRITE |(< (- x) (- y))|))
 (28 19 (:REWRITE DEFAULT-<-1))
 (27 25 (:REWRITE |(+ c (+ d x))|))
 (24 8 (:REWRITE DEFAULT-UNARY-/))
 (20 20 (:LINEAR LEN-WHEN-PREFIXP))
 (19 19 (:REWRITE |(equal (- x) (- y))|))
 (12 4 (:REWRITE TAKE-WHEN-ATOM))
 (10 10 (:LINEAR ADE::A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))
 (10 2 (:REWRITE DEFAULT-*-1))
 (8 8 (:TYPE-PRESCRIPTION PREFIXP))
 (8 8 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-A+AB))
 (8 8 (:REWRITE NORMALIZE-TERMS-SUCH-AS-1/AX+BX))
 (8 8 (:REWRITE |(< 0 (- x))|))
 (8 6 (:REWRITE |(< d (+ c x))|))
 (8 4 (:REWRITE DEFAULT-EXPT-2))
 (6 4 (:REWRITE ADE::NFIX-OF-NAT))
 (6 4 (:REWRITE |(expt 2^i n)|))
 (5 5 (:REWRITE FOLD-CONSTS-IN-+))
 (4 4 (:TYPE-PRESCRIPTION NFIX))
 (4 4 (:REWRITE PREFIXP-TRANSITIVE . 2))
 (4 4 (:REWRITE PREFIXP-TRANSITIVE . 1))
 (4 4 (:REWRITE PREFIXP-ONE-WAY-OR-ANOTHER . 2))
 (4 4 (:REWRITE PREFIXP-ONE-WAY-OR-ANOTHER . 1))
 (4 4 (:REWRITE DEFAULT-EXPT-1))
 (4 4 (:REWRITE |(expt x (- n))|))
 (4 4 (:REWRITE |(expt 1/c n)|))
 (4 4 (:REWRITE |(expt (- x) n)|))
 (4 2 (:REWRITE PREFIXP-WHEN-NOT-CONSP-RIGHT))
 (4 2 (:REWRITE LIST-EQUIV-WHEN-ATOM-LEFT))
 (4 2 (:REWRITE DEFAULT-CAR))
 (4 2 (:REWRITE DEFAULT-*-2))
 (3 3 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-A+AB-=-0))
 (3 3 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-A+AB-<-0))
 (3 3 (:REWRITE |(equal (- x) 0)|))
 (3 3 (:REWRITE |(equal (+ c x) d)|))
 (3 3 (:REWRITE |(< (- x) 0)|))
 (2 2 (:TYPE-PRESCRIPTION LIST-EQUIV))
 (2 2 (:REWRITE PREFIXP-WHEN-NOT-CONSP-LEFT))
 (2 2 (:REWRITE NORMALIZE-FACTORS-GATHER-EXPONENTS))
 (2 2 (:REWRITE LIST-EQUIV-WHEN-ATOM-RIGHT))
 (2 2 (:REWRITE |(equal (+ d x) (+ c y))|))
 (2 2 (:REWRITE |(equal (+ c x) (+ d y))|))
 (2 2 (:REWRITE |(equal (+ c x y) d)|))
 (2 2 (:REWRITE |(< (+ c x) d)|))
 (2 2 (:REWRITE |(* c (* d x))|))
 (1 1 (:REWRITE |(- (* c x))|))
 )
(ADE::RIPPLE-ADD-2-COMP-SUB
 (50 20 (:REWRITE DEFAULT-+-2))
 (27 20 (:REWRITE DEFAULT-+-1))
 (20 20 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (20 20 (:REWRITE NORMALIZE-ADDENDS))
 (13 13 (:REWRITE DEFAULT-CDR))
 (8 4 (:REWRITE DEFAULT-UNARY-MINUS))
 (5 2 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (5 2 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-EQUAL))
 (5 2 (:REWRITE PREFER-POSITIVE-ADDENDS-EQUAL))
 (4 4 (:REWRITE |(+ c (+ d x))|))
 (4 4 (:LINEAR LEN-WHEN-PREFIXP))
 (3 1 (:REWRITE REMOVE-WEAK-INEQUALITIES-TWO))
 (2 2 (:REWRITE FOLD-CONSTS-IN-+))
 (2 2 (:REWRITE DEFAULT-EXPT-2))
 (2 2 (:REWRITE DEFAULT-EXPT-1))
 (2 2 (:REWRITE |(expt x (- n))|))
 (2 2 (:REWRITE |(expt 2^i n)|))
 (2 2 (:REWRITE |(expt 1/c n)|))
 (2 2 (:REWRITE |(expt (- x) n)|))
 (2 2 (:REWRITE |(equal (- x) (- y))|))
 (2 2 (:LINEAR ADE::A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))
 (2 1 (:REWRITE SIMPLIFY-SUMS-<))
 (2 1 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (2 1 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (2 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-A+AB))
 (1 1 (:REWRITE REMOVE-WEAK-INEQUALITIES-ONE))
 (1 1 (:REWRITE DEFAULT-<-1))
 (1 1 (:REWRITE |(< 0 (- x))|))
 (1 1 (:REWRITE |(< (- x) (- y))|))
 )
(ADE::RIPPLE-SUB$VALUE-CORRECT
 (24 12 (:REWRITE DEFAULT-+-2))
 (14 12 (:REWRITE DEFAULT-+-1))
 (11 11 (:REWRITE DEFAULT-CDR))
 (6 6 (:TYPE-PRESCRIPTION ADE::NATP-V-TO-NAT))
 (4 4 (:LINEAR LEN-WHEN-PREFIXP))
 (4 2 (:REWRITE DEFAULT-UNARY-MINUS))
 (4 1 (:DEFINITION BINARY-APPEND))
 (2 2 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (2 2 (:LINEAR ADE::A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))
 (2 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-CAR))
 (1 1 (:REWRITE DEFAULT-<-1))
 )