# HG changeset patch
# User haftmann
# Date 1401521708 -7200
# Node ID 26df5a93ec27002648f032bc05ceed77f0eee441
# Parent  5e9507c002cc1186577316b19f3853fd200a72fc
tuned names

diff -r 5e9507c002cc -r 26df5a93ec27 src/Pure/Isar/class.ML
--- a/src/Pure/Isar/class.ML	Sat May 31 09:35:07 2014 +0200
+++ b/src/Pure/Isar/class.ML	Sat May 31 09:35:08 2014 +0200
@@ -355,7 +355,7 @@
       #> snd
       #> pair def_thm);
 
-fun global_const dangling_params class phi ((b, mx), rhs) thy =
+fun canonical_const dangling_params class phi ((b, mx), rhs) thy =
   let
     val dangling_params' = map (Morphism.term phi) dangling_params;
     val b' = Morphism.binding phi b;
@@ -375,7 +375,7 @@
     |> Sign.add_const_constraint (c', SOME ty')
   end;
 
-fun global_abbrev prmode class phi ((b, mx), rhs) thy =
+fun canonical_abbrev prmode class phi ((b, mx), rhs) thy =
   let
     val unchecks = these_unchecks thy [class];
     val b' = Morphism.binding phi b;
@@ -399,12 +399,12 @@
   in
     lthy
     |> class_const class Syntax.mode_default (b, lhs)
-    |> target_extension (global_const dangling_params) class ((b, mx), lhs)
+    |> target_extension (canonical_const dangling_params) class ((b, mx), lhs)
   end;
 
 fun abbrev class prmode ((b, mx), lhs) rhs' =
   class_const class prmode (b, lhs)
-  #> target_extension (global_abbrev prmode) class ((b, mx), rhs');
+  #> target_extension (canonical_abbrev prmode) class ((b, mx), rhs');
 
 end;