src/Pure/axclass.ML
changeset 61246 077b88f9ec16
parent 60801 7664e0916eec
child 61247 76148d288b2e
--- a/src/Pure/axclass.ML	Tue Sep 22 08:38:25 2015 +0200
+++ b/src/Pure/axclass.ML	Tue Sep 22 14:32:23 2015 +0200
@@ -614,7 +614,8 @@
     thy
     |> Sign.primitive_class (bclass, super)
     |> classrel_axiomatization (map (fn c => (class, c)) super)
-    |> Theory.add_deps_global "" (class_const class) (map class_const super)
+    |> Theory.add_deps_global "" (Theory.DConst (class_const class)) 
+      (map (Theory.DConst o class_const) super)
   end;
 
 end;