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