src/HOL/HOLCF/Tools/Domain/domain_isomorphism.ML
changeset 41430 1aa23e9f2c87
parent 41324 1383653efec3
child 42151 4da4fc77664b
--- a/src/HOL/HOLCF/Tools/Domain/domain_isomorphism.ML	Tue Jan 04 15:03:27 2011 -0800
+++ b/src/HOL/HOLCF/Tools/Domain/domain_isomorphism.ML	Tue Jan 04 15:32:56 2011 -0800
@@ -325,7 +325,7 @@
           @{thms adm_conj adm_subst [OF _ adm_deflation]
                  cont2cont_fst cont2cont_snd cont_id}
         val bottom_rules =
-          @{thms fst_strict snd_strict deflation_UU simp_thms}
+          @{thms fst_strict snd_strict deflation_bottom simp_thms}
         val tuple_rules =
           @{thms split_def fst_conv snd_conv}
         val deflation_rules =