author | wenzelm |
Mon, 06 Nov 2000 22:50:01 +0100 | |
changeset 10403 | 2955ee2424ce |
parent 8965 | d46b36785c70 |
child 10931 | ef2b1dd40db9 |
permissions | -rw-r--r-- |
5092 | 1 |
(* Title: Pure/pure.ML |
2 |
ID: $Id$ |
|
3 |
Author: Markus Wenzel, TU Muenchen |
|
4 |
||
6192
a42dbf1af868
proper setup of preloaded theories (ThyInfo.register_theory);
wenzelm
parents:
5905
diff
changeset
|
5 |
Final setup of the Pure theories. |
5092 | 6 |
*) |
7 |
||
5839 | 8 |
local |
9 |
val common_setup = |
|
10 |
Locale.setup @ |
|
6313 | 11 |
HTML.setup @ |
5839 | 12 |
ProofContext.setup @ |
6770 | 13 |
Attrib.setup @ |
5839 | 14 |
Method.setup @ |
6770 | 15 |
Calculation.setup @ |
6888
d0c68ebdabc5
skip_proof feature 'sorry' (for quick_and_dirty mode only);
wenzelm
parents:
6785
diff
changeset
|
16 |
SkipProof.setup @ |
6653 | 17 |
AxClass.setup @ |
8965 | 18 |
Latex.setup @ |
7718 | 19 |
Present.setup @ |
6696 | 20 |
Isamode.setup @ |
21 |
ProofGeneral.setup; |
|
5839 | 22 |
in |
23 |
structure Pure = |
|
24 |
struct |
|
25 |
val thy = |
|
26 |
PureThy.begin_theory "Pure" [ProtoPure.thy] |
|
27 |
|> Theory.add_syntax Syntax.pure_appl_syntax |
|
5905 | 28 |
|> Library.apply common_setup |
5839 | 29 |
|> PureThy.end_theory; |
30 |
end; |
|
5092 | 31 |
|
5839 | 32 |
structure CPure = |
33 |
struct |
|
34 |
val thy = |
|
35 |
PureThy.begin_theory "CPure" [ProtoPure.thy] |
|
36 |
|> Theory.add_syntax Syntax.pure_applC_syntax |
|
5905 | 37 |
|> Library.apply common_setup |
5863 | 38 |
|> Theory.copy |
5839 | 39 |
|> PureThy.end_theory; |
40 |
end; |
|
5211 | 41 |
end; |
5092 | 42 |
|
6192
a42dbf1af868
proper setup of preloaded theories (ThyInfo.register_theory);
wenzelm
parents:
5905
diff
changeset
|
43 |
ThyInfo.register_theory ProtoPure.thy; |
a42dbf1af868
proper setup of preloaded theories (ThyInfo.register_theory);
wenzelm
parents:
5905
diff
changeset
|
44 |
ThyInfo.register_theory Pure.thy; |
a42dbf1af868
proper setup of preloaded theories (ThyInfo.register_theory);
wenzelm
parents:
5905
diff
changeset
|
45 |
ThyInfo.register_theory CPure.thy; |