--- a/src/Pure/Syntax/type_ext.ML Sat May 29 15:07:29 2004 +0200
+++ b/src/Pure/Syntax/type_ext.ML Sat May 29 15:07:42 2004 +0200
@@ -196,7 +196,7 @@
Mfix ("_", longidT --> typeT, "", [], max_pri),
Mfix ("_::_", [tidT, sortT] ---> typeT, "_ofsort", [max_pri, 0], max_pri),
Mfix ("_::_", [tvarT, sortT] ---> typeT, "_ofsort", [max_pri, 0], max_pri),
- Mfix ("'_::_", sortT --> typeT, "_dummy_ofsort", [0], max_pri),
+ Mfix ("'_()::_", sortT --> typeT, "_dummy_ofsort", [0], max_pri),
Mfix ("_", idT --> sortT, "", [], max_pri),
Mfix ("_", longidT --> sortT, "", [], max_pri),
Mfix ("{}", sortT, "_topsort", [], max_pri),