File: find-n-free-blocks%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 (355 lines) | stat: -rw-r--r-- 11,863 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
(MV-NTH-REPLACEMENT
 (11 5 (:REWRITE ZP-OPEN))
 (7 7 (:REWRITE DEFAULT-+-2))
 (7 7 (:REWRITE DEFAULT-+-1))
 (6 2 (:REWRITE FOLD-CONSTS-IN-+))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (2 2 (:REWRITE DEFAULT-<-2))
 (2 2 (:REWRITE DEFAULT-<-1))
 (2 2 (:DEFINITION NOT))
 )
(COUNT-FREE-BLOCKS
 (2 2 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE DEFAULT-CAR))
 )
(COUNT-FREE-BLOCKS-CORRECTNESS-1
 (108 54 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (108 36 (:REWRITE DEFAULT-CDR))
 (82 50 (:REWRITE DEFAULT-+-2))
 (79 50 (:REWRITE DEFAULT-+-1))
 (74 26 (:REWRITE DEFAULT-CAR))
 (54 54 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (54 54 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (24 24 (:REWRITE CONSP-OF-APPEND))
 (1 1 (:REWRITE FOLD-CONSTS-IN-+))
 )
(COUNT-FREE-BLOCKS-CORRECTNESS-2
 (88 52 (:REWRITE DEFAULT-+-2))
 (82 52 (:REWRITE DEFAULT-+-1))
 (60 36 (:REWRITE DEFAULT-CDR))
 (38 26 (:REWRITE DEFAULT-CAR))
 (4 4 (:REWRITE FOLD-CONSTS-IN-+))
 )
(COUNT-FREE-BLOCKS-CORRECTNESS-3
 (381 13 (:REWRITE NTH-WHEN->=-N-LEN-L))
 (160 98 (:REWRITE DEFAULT-+-2))
 (154 106 (:REWRITE DEFAULT-CDR))
 (119 98 (:REWRITE DEFAULT-+-1))
 (92 65 (:REWRITE DEFAULT-CAR))
 (73 14 (:REWRITE NFIX-WHEN-ZP))
 (64 30 (:REWRITE ZP-OPEN))
 (58 45 (:REWRITE DEFAULT-<-2))
 (49 13 (:REWRITE NFIX-WHEN-NATP))
 (45 45 (:REWRITE DEFAULT-<-1))
 (29 29 (:REWRITE SUBSETP-MEMBER . 4))
 (29 29 (:REWRITE SUBSETP-MEMBER . 3))
 (29 29 (:REWRITE SUBSETP-MEMBER . 2))
 (29 29 (:REWRITE SUBSETP-MEMBER . 1))
 (27 9 (:DEFINITION NATP))
 (13 13 (:LINEAR POSITION-WHEN-MEMBER))
 (13 13 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 (9 9 (:TYPE-PRESCRIPTION NATP))
 (2 2 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(FIND-N-FREE-BLOCKS-HELPER
 (121 58 (:REWRITE DEFAULT-+-2))
 (81 58 (:REWRITE DEFAULT-+-1))
 (48 12 (:REWRITE COMMUTATIVITY-OF-+))
 (48 12 (:DEFINITION INTEGER-ABS))
 (48 6 (:REWRITE LENGTH-WHEN-STRINGP))
 (30 6 (:DEFINITION LEN))
 (23 18 (:REWRITE DEFAULT-<-2))
 (22 18 (:REWRITE DEFAULT-<-1))
 (21 21 (:REWRITE DEFAULT-CDR))
 (17 17 (:REWRITE FOLD-CONSTS-IN-+))
 (12 12 (:REWRITE DEFAULT-UNARY-MINUS))
 (12 12 (:REWRITE DEFAULT-CAR))
 (6 6 (:TYPE-PRESCRIPTION LEN))
 (6 6 (:REWRITE DEFAULT-REALPART))
 (6 6 (:REWRITE DEFAULT-NUMERATOR))
 (6 6 (:REWRITE DEFAULT-IMAGPART))
 (6 6 (:REWRITE DEFAULT-DENOMINATOR))
 (6 6 (:REWRITE DEFAULT-COERCE-2))
 (6 6 (:REWRITE DEFAULT-COERCE-1))
 (4 4 (:REWRITE ZP-OPEN))
 )
(FIND-N-FREE-BLOCKS-HELPER-CORRECTNESS-1
 (40 25 (:REWRITE DEFAULT-+-2))
 (31 25 (:REWRITE DEFAULT-+-1))
 (24 17 (:REWRITE DEFAULT-<-2))
 (24 6 (:REWRITE COMMUTATIVITY-OF-+))
 (18 17 (:REWRITE DEFAULT-<-1))
 (15 14 (:REWRITE DEFAULT-CDR))
 (13 13 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (10 10 (:LINEAR POSITION-WHEN-MEMBER))
 (10 10 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 (7 7 (:REWRITE ZP-OPEN))
 (7 7 (:REWRITE DEFAULT-CAR))
 (5 1 (:REWRITE NFIX-WHEN-NATP))
 (4 1 (:REWRITE NFIX-WHEN-ZP))
 (3 1 (:DEFINITION NATP))
 (1 1 (:TYPE-PRESCRIPTION NATP))
 )
(FIND-N-FREE-BLOCKS-HELPER-CORRECTNESS-2
 (106 70 (:REWRITE DEFAULT-+-2))
 (95 70 (:REWRITE DEFAULT-+-1))
 (44 42 (:REWRITE DEFAULT-CDR))
 (42 28 (:REWRITE DEFAULT-<-1))
 (28 28 (:REWRITE DEFAULT-<-2))
 (27 27 (:REWRITE DEFAULT-CAR))
 (24 24 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (22 22 (:LINEAR POSITION-WHEN-MEMBER))
 (22 22 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 (15 10 (:REWRITE ZP-OPEN))
 (6 2 (:DEFINITION NATP))
 (2 2 (:TYPE-PRESCRIPTION NATP))
 )
(FIND-N-FREE-BLOCKS-HELPER-CORRECTNESS-3
 (13 12 (:REWRITE DEFAULT-CAR))
 (12 12 (:REWRITE BOUNDED-NAT-LISTP-CORRECTNESS-1))
 (12 4 (:REWRITE COMMUTATIVITY-OF-+))
 (11 11 (:REWRITE DEFAULT-<-2))
 (11 11 (:REWRITE DEFAULT-<-1))
 (11 10 (:REWRITE DEFAULT-CDR))
 (10 10 (:REWRITE DEFAULT-+-2))
 (10 10 (:REWRITE DEFAULT-+-1))
 (5 5 (:REWRITE ZP-OPEN))
 )
(FIND-N-FREE-BLOCKS-HELPER-CORRECTNESS-4
 (182 9 (:DEFINITION SUBSETP-EQUAL))
 (137 14 (:REWRITE SUBSETP-MEMBER . 3))
 (112 28 (:REWRITE SUBSETP-MEMBER . 1))
 (42 42 (:TYPE-PRESCRIPTION SUBSETP-EQUAL))
 (29 27 (:REWRITE DEFAULT-CAR))
 (28 28 (:REWRITE SUBSETP-MEMBER . 2))
 (25 23 (:REWRITE DEFAULT-CDR))
 (20 20 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (18 18 (:REWRITE SUBSETP-TRANS2))
 (18 18 (:REWRITE SUBSETP-TRANS))
 (16 4 (:REWRITE COMMUTATIVITY-OF-+))
 (14 14 (:REWRITE SUBSETP-MEMBER . 4))
 (14 10 (:REWRITE DEFAULT-+-2))
 (14 10 (:REWRITE DEFAULT-+-1))
 (12 6 (:REWRITE DEFAULT-<-2))
 (12 6 (:REWRITE DEFAULT-<-1))
 (5 5 (:REWRITE ZP-OPEN))
 )
(FIND-N-FREE-BLOCKS-HELPER-CORRECTNESS-5
 (249 32 (:REWRITE NFIX-WHEN-ZP))
 (227 193 (:REWRITE DEFAULT-<-2))
 (201 193 (:REWRITE DEFAULT-<-1))
 (200 149 (:REWRITE DEFAULT-+-2))
 (182 9 (:DEFINITION SUBSETP-EQUAL))
 (154 11 (:LINEAR NATP-OF-NTH-WHEN-NAT-LISTP))
 (149 149 (:REWRITE DEFAULT-+-1))
 (145 22 (:REWRITE SUBSETP-MEMBER . 3))
 (127 124 (:REWRITE DEFAULT-CDR))
 (120 36 (:REWRITE SUBSETP-MEMBER . 1))
 (118 14 (:DEFINITION NAT-LISTP))
 (111 31 (:REWRITE NFIX-WHEN-NATP))
 (90 87 (:REWRITE DEFAULT-CAR))
 (63 37 (:REWRITE FOLD-CONSTS-IN-+))
 (42 42 (:TYPE-PRESCRIPTION SUBSETP-EQUAL))
 (36 36 (:REWRITE SUBSETP-MEMBER . 2))
 (34 34 (:LINEAR POSITION-WHEN-MEMBER))
 (34 34 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 (25 25 (:REWRITE DEFAULT-UNARY-MINUS))
 (23 23 (:REWRITE BOUNDED-NAT-LISTP-CORRECTNESS-1))
 (22 22 (:REWRITE SUBSETP-MEMBER . 4))
 (20 20 (:TYPE-PRESCRIPTION NATP))
 (18 18 (:REWRITE SUBSETP-TRANS2))
 (18 18 (:REWRITE SUBSETP-TRANS))
 (8 8 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(FIND-N-FREE-BLOCKS-HELPER-CORRECTNESS-6
 (35 5 (:DEFINITION MEMBER-EQUAL))
 (23 21 (:REWRITE DEFAULT-CDR))
 (18 17 (:REWRITE DEFAULT-CAR))
 (16 4 (:REWRITE COMMUTATIVITY-OF-+))
 (14 10 (:REWRITE DEFAULT-+-2))
 (14 10 (:REWRITE DEFAULT-+-1))
 (10 10 (:REWRITE SUBSETP-MEMBER . 4))
 (10 10 (:REWRITE SUBSETP-MEMBER . 3))
 (10 10 (:REWRITE SUBSETP-MEMBER . 2))
 (10 10 (:REWRITE SUBSETP-MEMBER . 1))
 (8 8 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (5 5 (:REWRITE ZP-OPEN))
 (5 1 (:REWRITE FIND-N-FREE-BLOCKS-HELPER-CORRECTNESS-5))
 (3 1 (:DEFINITION NATP))
 (1 1 (:TYPE-PRESCRIPTION NATP))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 )
(FIND-N-FREE-BLOCKS-HELPER-CORRECTNESS-7
 (58 35 (:REWRITE DEFAULT-+-2))
 (35 35 (:REWRITE DEFAULT-+-1))
 (25 18 (:REWRITE DEFAULT-<-2))
 (20 18 (:REWRITE DEFAULT-CAR))
 (18 18 (:REWRITE DEFAULT-<-1))
 (13 12 (:REWRITE DEFAULT-CDR))
 (8 8 (:REWRITE FOLD-CONSTS-IN-+))
 (5 5 (:REWRITE ZP-OPEN))
 )
(FIND-N-FREE-BLOCKS)
(FIND-N-FREE-BLOCKS-CORRECTNESS-1)
(FIND-N-FREE-BLOCKS-CORRECTNESS-2)
(FIND-N-FREE-BLOCKS-CORRECTNESS-3)
(FIND-N-FREE-BLOCKS-CORRECTNESS-5
 (97 4 (:REWRITE NTH-WHEN->=-N-LEN-L))
 (38 6 (:REWRITE SUBSETP-MEMBER . 1))
 (26 2 (:DEFINITION SUBSETP-EQUAL))
 (20 4 (:DEFINITION LEN))
 (17 13 (:REWRITE DEFAULT-<-2))
 (17 3 (:REWRITE NFIX-WHEN-ZP))
 (16 3 (:REWRITE ZP-OPEN))
 (15 13 (:REWRITE DEFAULT-<-1))
 (14 1 (:LINEAR NATP-OF-NTH-WHEN-NAT-LISTP))
 (12 7 (:REWRITE DEFAULT-+-2))
 (10 10 (:TYPE-PRESCRIPTION SUBSETP-EQUAL))
 (10 10 (:REWRITE DEFAULT-CDR))
 (10 1 (:DEFINITION NAT-LISTP))
 (9 9 (:REWRITE DEFAULT-CAR))
 (8 7 (:REWRITE DEFAULT-+-1))
 (8 2 (:REWRITE NFIX-WHEN-NATP))
 (7 2 (:DEFINITION NATP))
 (6 6 (:REWRITE SUBSETP-MEMBER . 2))
 (6 6 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (5 2 (:REWRITE FIND-N-FREE-BLOCKS-HELPER-CORRECTNESS-4))
 (4 4 (:REWRITE SUBSETP-TRANS2))
 (4 4 (:REWRITE SUBSETP-TRANS))
 (4 4 (:REWRITE SUBSETP-MEMBER . 4))
 (4 4 (:REWRITE SUBSETP-MEMBER . 3))
 (4 4 (:LINEAR POSITION-WHEN-MEMBER))
 (4 4 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 (3 3 (:TYPE-PRESCRIPTION NATP))
 (3 1 (:DEFINITION NFIX))
 (2 2 (:TYPE-PRESCRIPTION ZP))
 (2 2 (:REWRITE BOUNDED-NAT-LISTP-CORRECTNESS-1))
 (2 1 (:REWRITE FIX-WHEN-ACL2-NUMBERP))
 (1 1 (:LINEAR POSITION-WHEN-MEMBER-OF-TAKE))
 )
(FIND-N-FREE-BLOCKS-CORRECTNESS-6)
(FIND-N-FREE-BLOCKS-CORRECTNESS-7
 (5 1 (:DEFINITION LEN))
 (3 2 (:REWRITE DEFAULT-<-2))
 (2 2 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE DEFAULT-CAR))
 (2 2 (:REWRITE DEFAULT-<-1))
 (2 1 (:REWRITE DEFAULT-+-2))
 (1 1 (:REWRITE DEFAULT-+-1))
 )
(COUNT-FREE-BLOCKS-ALT)
(COUNT-FREE-BLOCKS-ALT-CORRECTNESS-1
 (1436 47 (:REWRITE NTH-WHEN->=-N-LEN-L))
 (1059 47 (:REWRITE NTH-UNDER-IFF-1))
 (746 449 (:REWRITE DEFAULT-+-2))
 (740 53 (:DEFINITION MEMBER-EQUAL))
 (505 449 (:REWRITE DEFAULT-+-1))
 (436 57 (:REWRITE NFIX-WHEN-ZP))
 (392 44 (:REWRITE ZP-OPEN))
 (391 14 (:REWRITE LEN-OF-REVAPPEND))
 (313 287 (:REWRITE DEFAULT-CDR))
 (232 164 (:REWRITE DEFAULT-<-2))
 (231 231 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (205 179 (:REWRITE DEFAULT-CAR))
 (190 164 (:REWRITE DEFAULT-<-1))
 (117 89 (:TYPE-PRESCRIPTION TRUE-LISTP-REVAPPEND-TYPE-PRESCRIPTION))
 (111 5 (:REWRITE BY-SLICE-YOU-MEAN-THE-WHOLE-CAKE-1))
 (102 102 (:REWRITE SUBSETP-MEMBER . 4))
 (102 102 (:REWRITE SUBSETP-MEMBER . 3))
 (102 102 (:REWRITE SUBSETP-MEMBER . 2))
 (102 102 (:REWRITE SUBSETP-MEMBER . 1))
 (89 89 (:TYPE-PRESCRIPTION REVAPPEND))
 (75 75 (:LINEAR POSITION-WHEN-MEMBER))
 (75 75 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 (47 47 (:TYPE-PRESCRIPTION NFIX))
 (47 40 (:REWRITE DEFAULT-UNARY-MINUS))
 (28 28 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (15 5 (:DEFINITION NFIX))
 (5 5 (:TYPE-PRESCRIPTION NATP))
 )
(COUNT-FREE-BLOCKS-ALT-CORRECTNESS-LEMMA-1
 (210 7 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (149 17 (:REWRITE TRUE-LISTP-WHEN-STRING-LIST))
 (133 9 (:DEFINITION TRUE-LISTP))
 (101 18 (:DEFINITION STRING-LISTP))
 (79 79 (:TYPE-PRESCRIPTION STRING-LISTP))
 (45 43 (:REWRITE DEFAULT-CDR))
 (36 34 (:REWRITE DEFAULT-CAR))
 (35 35 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (24 16 (:REWRITE DEFAULT-+-2))
 (24 16 (:REWRITE DEFAULT-+-1))
 )
(COUNT-FREE-BLOCKS-ALT-CORRECTNESS-2
 (257 2 (:DEFINITION COUNT-FREE-BLOCKS-ALT))
 (134 2 (:DEFINITION NTH))
 (122 4 (:REWRITE NTH-WHEN->=-N-LEN-L))
 (68 4 (:REWRITE NTH-UNDER-IFF-1))
 (52 7 (:REWRITE ZP-OPEN))
 (50 10 (:DEFINITION LEN))
 (47 30 (:REWRITE DEFAULT-+-2))
 (44 4 (:REWRITE NFIX-WHEN-ZP))
 (40 4 (:DEFINITION MEMBER-EQUAL))
 (33 30 (:REWRITE DEFAULT-+-1))
 (24 24 (:REWRITE DEFAULT-CDR))
 (24 20 (:REWRITE DEFAULT-<-2))
 (22 2 (:DEFINITION COUNT-FREE-BLOCKS))
 (21 20 (:REWRITE DEFAULT-<-1))
 (20 20 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (18 4 (:REWRITE NFIX-WHEN-NATP))
 (12 12 (:REWRITE DEFAULT-CAR))
 (12 2 (:DEFINITION NATP))
 (8 8 (:REWRITE SUBSETP-MEMBER . 4))
 (8 8 (:REWRITE SUBSETP-MEMBER . 3))
 (8 8 (:REWRITE SUBSETP-MEMBER . 2))
 (8 8 (:REWRITE SUBSETP-MEMBER . 1))
 (8 8 (:LINEAR POSITION-WHEN-MEMBER))
 (8 8 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 (6 2 (:REWRITE FOLD-CONSTS-IN-+))
 (6 2 (:DEFINITION NFIX))
 (4 4 (:TYPE-PRESCRIPTION ZP))
 (4 4 (:TYPE-PRESCRIPTION NFIX))
 (2 2 (:TYPE-PRESCRIPTION NATP))
 )
(COUNT-BEFORE-N
 (3 3 (:REWRITE BOUNDED-NAT-LISTP-CORRECTNESS-1))
 (2 2 (:REWRITE DEFAULT-CAR))
 (1 1 (:REWRITE DEFAULT-CDR))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 )
(COUNT-BEFORE-N-CORRECTNESS-1
 (18 9 (:REWRITE DEFAULT-+-2))
 (15 7 (:REWRITE DEFAULT-<-2))
 (14 7 (:REWRITE DEFAULT-<-1))
 (9 9 (:REWRITE DEFAULT-+-1))
 (6 6 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (6 6 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (1 1 (:LINEAR POSITION-WHEN-MEMBER))
 (1 1 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 )
(COUNT-BEFORE-N-CORRECTNESS-2
 (108 54 (:REWRITE DEFAULT-+-2))
 (76 46 (:REWRITE DEFAULT-<-2))
 (62 46 (:REWRITE DEFAULT-<-1))
 (59 59 (:REWRITE DEFAULT-CDR))
 (54 54 (:REWRITE DEFAULT-+-1))
 (48 48 (:REWRITE DEFAULT-CAR))
 (46 46 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (7 7 (:LINEAR POSITION-WHEN-MEMBER))
 (7 7 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 )
(COUNT-BEFORE-N-CORRECTNESS-3
 (54 27 (:REWRITE DEFAULT-+-2))
 (27 27 (:REWRITE DEFAULT-+-1))
 (24 24 (:REWRITE DEFAULT-CDR))
 (22 15 (:REWRITE DEFAULT-<-1))
 (21 21 (:REWRITE DEFAULT-CAR))
 (15 15 (:REWRITE DEFAULT-<-2))
 (9 9 (:REWRITE BOUNDED-NAT-LISTP-CORRECTNESS-1))
 (7 7 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (7 7 (:LINEAR POSITION-WHEN-MEMBER))
 (7 7 (:LINEAR POSITION-EQUAL-AC-WHEN-MEMBER))
 )