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] ),