src/Pure/Syntax/syn_ext.ML
changeset 441 2b97bd6415b7
parent 373 68400ea32f7b
child 555 a7f397a14b16
--- a/src/Pure/Syntax/syn_ext.ML	Fri Jun 24 13:01:53 1994 +0200
+++ b/src/Pure/Syntax/syn_ext.ML	Wed Jun 29 12:01:17 1994 +0200
@@ -311,7 +311,7 @@
 
     fun constrain T =
       Mfix ("_::_", [T, typeT] ---> change_name T "_A", constrainC, 
-            [max_pri, 0], max_pri - 1)
+            [4, 0], 3)
 
     fun unhide T =
       if T <> logicT then