equal
deleted
inserted
replaced
15 val version = "Isabelle-94 revision 4: August 95"; |
15 val version = "Isabelle-94 revision 4: August 95"; |
16 |
16 |
17 print_depth 1; |
17 print_depth 1; |
18 |
18 |
19 use "library.ML"; |
19 use "library.ML"; |
|
20 use "symtab.ML"; |
20 use "term.ML"; |
21 use "term.ML"; |
21 use "symtab.ML"; |
|
22 |
|
23 structure Symtab = SymtabFun(); |
|
24 |
22 |
25 (*Syntax module*) |
23 (*Syntax module*) |
26 cd "Syntax"; |
24 cd "Syntax"; |
27 use "ROOT.ML"; |
25 use "ROOT.ML"; |
28 cd ".."; |
26 cd ".."; |
66 |
64 |
67 structure Pure = struct val thy = pure_thy end; |
65 structure Pure = struct val thy = pure_thy end; |
68 structure CPure = struct val thy = cpure_thy end; |
66 structure CPure = struct val thy = cpure_thy end; |
69 |
67 |
70 (* hide functors; saves space in PolyML *) |
68 (* hide functors; saves space in PolyML *) |
71 functor SymtabFun() = struct end; |
|
72 functor TypeFun() = struct end; |
69 functor TypeFun() = struct end; |
73 functor SignFun() = struct end; |
70 functor SignFun() = struct end; |
74 functor SequenceFun() = struct end; |
71 functor SequenceFun() = struct end; |
75 functor EnvirFun() = struct end; |
72 functor EnvirFun() = struct end; |
76 functor PatternFun() = struct end; |
73 functor PatternFun() = struct end; |