# HG changeset patch
# User haftmann
# Date 1401521710 -7200
# Node ID ad09e59f50a9dd2c6915b3b27d0c3645eb21e4d7
# Parent  19501c952c211339526c1787149bc103ad944266
tuned

diff -r 19501c952c21 -r ad09e59f50a9 src/Pure/Isar/class.ML
--- a/src/Pure/Isar/class.ML	Sat May 31 09:35:09 2014 +0200
+++ b/src/Pure/Isar/class.ML	Sat May 31 09:35:10 2014 +0200
@@ -351,7 +351,7 @@
       #> snd
       #> pair def_thm);
 
-fun canonical_const dangling_params class phi ((b, mx), rhs) thy =
+fun canonical_const class phi dangling_params ((b, mx), rhs) thy =
   let
     val dangling_params' = map (Morphism.term phi) dangling_params;
     val b' = Morphism.binding phi b;
@@ -371,7 +371,7 @@
     |> Sign.add_const_constraint (c', SOME ty')
   end;
 
-fun canonical_abbrev prmode class phi ((b, mx), rhs) thy =
+fun canonical_abbrev class phi prmode ((b, mx), rhs) thy =
   let
     val unchecks = these_unchecks thy [class];
     val b' = Morphism.binding phi b;
@@ -396,7 +396,7 @@
   in
     lthy
     |> class_const class Syntax.mode_default (b, lhs)
-    |> Local_Theory.raw_theory (canonical_const dangling_params class phi ((b, mx), lhs))
+    |> Local_Theory.raw_theory (canonical_const class phi dangling_params ((b, mx), lhs))
     |> synchronize_class_syntax_target class
   end;
 
@@ -406,7 +406,7 @@
   in
     lthy
     |> class_const class prmode (b, lhs)
-    |> Local_Theory.raw_theory (canonical_abbrev prmode class phi ((b, mx), rhs'))
+    |> Local_Theory.raw_theory (canonical_abbrev class phi prmode ((b, mx), rhs'))
     |> synchronize_class_syntax_target class
   end;