File: tjvm-examples%40useless-runes.lsp

package info (click to toggle)
acl2 8.6%2Bdfsg-2
  • links: PTS
  • area: main
  • in suites: trixie
  • size: 1,111,420 kB
  • sloc: lisp: 17,818,294; java: 125,359; python: 28,122; javascript: 23,458; cpp: 18,851; ansic: 11,569; perl: 7,678; xml: 5,591; sh: 3,976; makefile: 3,833; ruby: 2,633; yacc: 1,126; ml: 763; awk: 295; csh: 233; lex: 197; php: 178; tcl: 49; asm: 23; haskell: 17
file content (115 lines) | stat: -rw-r--r-- 3,214 bytes parent folder | download | duplicates (3)
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
(TJVM::HALTEDP
 (5 5 (:TYPE-PRESCRIPTION TJVM::STEP))
 )
(TJVM::|STEPW-arity-1-defpun-test|)
(TJVM::|STEPW-arity-1-defpun-base|)
(TJVM::|STEPW-arity-1-step|
 (1 1 (:TYPE-PRESCRIPTION TJVM::STEP))
 )
(TJVM::|STEPW-arity-1-defpun-stn|)
(TJVM::|STEPW-arity-1-defpun-fn|
 (4 4 (:REWRITE DEFAULT-<-2))
 (4 4 (:REWRITE DEFAULT-<-1))
 (1 1 (:REWRITE ZP-OPEN))
 (1 1 (:REWRITE DEFAULT-+-2))
 (1 1 (:REWRITE DEFAULT-+-1))
 )
(TJVM::|STEPW-arity-1|
 (1 1 (:TYPE-PRESCRIPTION TJVM::|STEPW-arity-1-defpun-stn|))
 )
(TJVM::|STEPW-arity-1-DEF|)
(TJVM::STEPW)
(TJVM::STEPW-DEF
 (1 1 (:TYPE-PRESCRIPTION TJVM::STEP))
 )
(TJVM::==)
(TJVM::==-IS-AN-EQUIVALENCE)
(TJVM::STEPW-STEP
 (34 34 (:TYPE-PRESCRIPTION TJVM::STEP))
 )
(TJVM::==-STEP
 (29 10 (:REWRITE DEFAULT-CDR))
 (29 10 (:REWRITE DEFAULT-CAR))
 )
(TJVM::==-STEPPER
 (36 4 (:DEFINITION NTH))
 (35 16 (:REWRITE DEFAULT-CAR))
 (33 14 (:REWRITE DEFAULT-CDR))
 (16 4 (:REWRITE ZP-OPEN))
 (4 4 (:REWRITE DEFAULT-<-2))
 (4 4 (:REWRITE DEFAULT-<-1))
 (4 4 (:REWRITE DEFAULT-+-2))
 (4 4 (:REWRITE DEFAULT-+-1))
 )
(TJVM::GENERAL-==-STEPPER
 (29 10 (:REWRITE DEFAULT-CDR))
 (29 10 (:REWRITE DEFAULT-CAR))
 )
(TJVM::STEPN
 (6 6 (:TYPE-PRESCRIPTION TJVM::STEP))
 )
(TJVM::==-STEPN
 (58 58 (:TYPE-PRESCRIPTION TJVM::STEP))
 (9 6 (:REWRITE ZP-OPEN))
 (4 4 (:REWRITE DEFAULT-+-2))
 (4 4 (:REWRITE DEFAULT-+-1))
 (3 1 (:REWRITE TJVM::CONSTANT-FOLD-+))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 )
(TJVM::==-Y)
(TJVM::NEXT-INSTRUCTION)
(TJVM::==-LOAD
 (23 15 (:REWRITE DEFAULT-+-2))
 (20 2 (:REWRITE TJVM::COMMUTATIVITY2-OF-+))
 (18 18 (:REWRITE DEFAULT-CAR))
 (15 15 (:REWRITE DEFAULT-+-1))
 (14 14 (:REWRITE DEFAULT-CDR))
 (12 12 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (12 2 (:REWRITE TJVM::CONSTANT-FOLD-+))
 (10 2 (:DEFINITION ASSOC-EQUAL))
 (9 9 (:REWRITE DEFAULT-<-2))
 (9 9 (:REWRITE DEFAULT-<-1))
 (6 2 (:REWRITE UNICITY-OF-0))
 (4 4 (:REWRITE TJVM::STACKS))
 (4 4 (:REWRITE TJVM::FRAMES))
 (4 2 (:DEFINITION FIX))
 )
(TJVM::FACT-==-HINT)
(TJVM::MATH-CLASS-LOADEDP)
(TJVM::==-INVOKESTATIC-FACT-LEMMA
 (266 188 (:REWRITE DEFAULT-+-2))
 (190 19 (:REWRITE TJVM::COMMUTATIVITY2-OF-+))
 (188 188 (:REWRITE DEFAULT-+-1))
 (156 33 (:REWRITE TJVM::CONSTANT-FOLD-+))
 (129 129 (:REWRITE DEFAULT-CAR))
 (116 116 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (100 100 (:REWRITE DEFAULT-<-2))
 (100 100 (:REWRITE DEFAULT-<-1))
 (91 91 (:REWRITE DEFAULT-CDR))
 (58 29 (:REWRITE DEFAULT-*-2))
 (57 19 (:REWRITE UNICITY-OF-0))
 (38 19 (:DEFINITION FIX))
 (29 29 (:TYPE-PRESCRIPTION TJVM::FACT))
 (29 29 (:REWRITE DEFAULT-*-1))
 )
(TJVM::==-INVOKESTATIC-FACT
 (43 2 (:REWRITE TJVM::==-STEPPER))
 (23 16 (:REWRITE DEFAULT-+-2))
 (20 2 (:REWRITE TJVM::COMMUTATIVITY2-OF-+))
 (20 2 (:DEFINITION TJVM::FACT))
 (16 16 (:REWRITE DEFAULT-+-1))
 (14 14 (:REWRITE DEFAULT-CAR))
 (12 2 (:REWRITE TJVM::CONSTANT-FOLD-+))
 (11 11 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (11 11 (:REWRITE DEFAULT-<-2))
 (11 11 (:REWRITE DEFAULT-<-1))
 (10 10 (:REWRITE DEFAULT-CDR))
 (6 2 (:REWRITE UNICITY-OF-0))
 (4 4 (:REWRITE TJVM::STACKS))
 (4 4 (:REWRITE TJVM::FRAMES))
 (4 2 (:REWRITE DEFAULT-*-2))
 (4 2 (:DEFINITION FIX))
 (2 2 (:TYPE-PRESCRIPTION TJVM::FACT))
 (2 2 (:REWRITE DEFAULT-*-1))
 )