src/HOLCF/Tools/domain/domain_theorems.ML
changeset 30364 577edc39b501
parent 30280 eb98b49ef835
child 30807 a167ed35ec0d
--- a/src/HOLCF/Tools/domain/domain_theorems.ML	Sun Mar 08 17:19:15 2009 +0100
+++ b/src/HOLCF/Tools/domain/domain_theorems.ML	Sun Mar 08 17:26:14 2009 +0100
@@ -606,7 +606,7 @@
 
 in
   thy
-    |> Sign.add_path (NameSpace.base_name dname)
+    |> Sign.add_path (Long_Name.base_name dname)
     |> (snd o (PureThy.add_thmss (map (Thm.no_attributes o apfst Binding.name) [
         ("iso_rews" , iso_rews  ),
         ("exhaust"  , [exhaust] ),