-
Notifications
You must be signed in to change notification settings - Fork 2
/
exp_elab.edn
109 lines (109 loc) · 3.06 KB
/
exp_elab.edn
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
"elaborated-closure-type" closure3330
"elaborated-closure-type" closure3341
"elaborated-closure-type" closure3342
"elaborated-closure-type" closure3343
"elaborated-closure-type" closure3344
"elaborated-closure-type" closure3345
"elaborated-closure-type" closure3346
"elaborated-closure-type" closure3347
"elaborated-closure-type" closure3348
"elaborated-closure-type" closure3349
"elaborated-closure-type" closure3340
"elaborated-closure-type" closure3350
"elaborated-closure-type" closure3351
"elaborated-closure-type" closure3332
"elaborated-closure-type" closure3334
"elaborated-closure-type" closure3336
"elaborated-closure-type" closure3338
"elaborated-closure-type" closure3339
"elaborated-closure-type" closure3337
"elaborated-closure-type" closure3335
"elaborated-closure-type" closure3333
"elaborated-closure-type" closure3331
"elaborated-closure-type" closure3329
(((ann
(fn
[pair]
((ann
(fn
[f1]
((ann
(fn
[f2]
((ann
(fn
[f3]
((ann
(fn
[f4]
(ann
(fn [z] ((f4 (ann (fn [x] x) (IFn))) z))
[[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]))
[[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]]
:->
[[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])
(ann
(fn [x] (f3 (f3 x)))
[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])))
[(IFn
[(IFn) :-> (IFn)]
[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])
:->
[[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])
(ann
(fn [x] (f2 (f2 x)))
(IFn
[(IFn) :-> (IFn)]
[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]]))))
[(IFn
[(IFn) :-> (IFn)]
[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])
:->
[[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])
(ann
(fn [x] (f1 (f1 x)))
(IFn
[(IFn) :-> (IFn)]
[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]]))))
[(IFn
[(IFn) :-> (IFn)]
[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])
:->
[[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])
(ann
(fn [x] (pair x))
(IFn
[(IFn) :-> (IFn)]
[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]]))))
[(IFn
[(IFn) :-> (IFn)]
[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])
:->
[[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])
(ann
(fn
[x]
(ann
(fn [f] ((f x) x))
(EnclosingFnCase
0
[(IFn) :-> Any]
(IFn)
[(IFn) :-> Any]
[[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)])))
(IFn
[(IFn) :-> (IFn)]
[(IFn) :-> [[(IFn) :-> [(IFn) :-> (IFn)]] :-> (IFn)]])))
(ann
(fn
[x]
(ann
(fn
[y]
(ann
(fn
[x']
(fn [y'] (fn [x] (fn [y] (fn [x'] (fn [y'] (fn [i] i)))))))
(IFn)))
[(IFn) :-> (IFn)]))
[(IFn) :-> [(IFn) :-> (IFn)]]))