author | haftmann |
Wed, 18 Aug 2010 09:46:59 +0200 | |
changeset 38503 | 7115853eaf8a |
parent 38460 | 628fee3eb449 |
child 38798 | 89f273ab1d42 |
permissions | -rw-r--r-- |
28213 | 1 |
theory Setup |
38503 | 2 |
imports Complex_Main More_List RBT Dlist Mapping |
30227 | 3 |
uses |
4 |
"../../antiquote_setup.ML" |
|
5 |
"../../more_antiquote.ML" |
|
28213 | 6 |
begin |
7 |
||
28447 | 8 |
ML {* no_document use_thys |
38503 | 9 |
["Efficient_Nat", "Code_Char_chr", "Product_ord", |
10 |
"~~/src/HOL/Imperative_HOL/Imperative_HOL", |
|
30119
391e12ff816c
fixed import of ~~/src/HOL/Decision_Procs/Ferrack;
wenzelm
parents:
29794
diff
changeset
|
11 |
"~~/src/HOL/Decision_Procs/Ferrack"] *} |
28419 | 12 |
|
38503 | 13 |
setup {* |
14 |
let |
|
15 |
val typ = Simple_Syntax.read_typ; |
|
16 |
val typeT = Syntax.typeT; |
|
17 |
val spropT = Syntax.spropT; |
|
18 |
in |
|
19 |
Sign.del_modesyntax_i (Symbol.xsymbolsN, false) [ |
|
20 |
("_constrain", typ "logic => type => logic", Mixfix ("_\<Colon>_", [4, 0], 3)), |
|
21 |
("_constrain", [spropT, typeT] ---> spropT, Mixfix ("_\<Colon>_", [4, 0], 3))] |
|
22 |
#> Sign.add_modesyntax_i (Symbol.xsymbolsN, false) [ |
|
23 |
("_constrain", typ "logic => type => logic", Mixfix ("_ \<Colon> _", [4, 0], 3)), |
|
24 |
("_constrain", [spropT, typeT] ---> spropT, Mixfix ("_ \<Colon> _", [4, 0], 3))] |
|
25 |
end |
|
26 |
*} |
|
27 |
||
34071 | 28 |
setup {* Code_Target.set_default_code_width 74 *} |
29 |
||
32833 | 30 |
ML_command {* Unsynchronized.reset unique_names *} |
28213 | 31 |
|
32 |
end |