| author | blanchet | 
| Mon, 21 Feb 2011 14:02:07 +0100 | |
| changeset 41800 | 7f333b59d5fb | 
| parent 39066 | 4517a4049588 | 
| child 42288 | 2074b31650e6 | 
| permissions | -rw-r--r-- | 
| 28213 | 1 | theory Setup | 
| 39066 | 2 | imports | 
| 3 | Complex_Main | |
| 4 | More_List RBT Dlist Mapping | |
| 30227 | 5 | uses | 
| 6 | "../../antiquote_setup.ML" | |
| 7 | "../../more_antiquote.ML" | |
| 28213 | 8 | begin | 
| 9 | ||
| 38503 | 10 | setup {*
 | 
| 11 | let | |
| 12 | val typ = Simple_Syntax.read_typ; | |
| 13 | val typeT = Syntax.typeT; | |
| 14 | val spropT = Syntax.spropT; | |
| 15 | in | |
| 16 | Sign.del_modesyntax_i (Symbol.xsymbolsN, false) [ | |
| 17 |     ("_constrain", typ "logic => type => logic", Mixfix ("_\<Colon>_", [4, 0], 3)),
 | |
| 18 |     ("_constrain", [spropT, typeT] ---> spropT, Mixfix ("_\<Colon>_", [4, 0], 3))]
 | |
| 19 | #> Sign.add_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 | end | |
| 23 | *} | |
| 24 | ||
| 34071 | 25 | setup {* Code_Target.set_default_code_width 74 *}
 | 
| 26 | ||
| 38798 
89f273ab1d42
expanded some aliases from structure Unsynchronized;
 wenzelm parents: 
38503diff
changeset | 27 | ML_command {* unique_names := false *}
 | 
| 28213 | 28 | |
| 29 | end |