src/HOL/HOLCF/Bifinite.thy
changeset 41370 17b09240893c
parent 41299 fc8419fd4735
child 41413 64cd30d6b0b8
--- a/src/HOL/HOLCF/Bifinite.thy	Tue Dec 21 16:41:31 2010 +0100
+++ b/src/HOL/HOLCF/Bifinite.thy	Tue Dec 21 08:43:39 2010 -0800
@@ -33,7 +33,7 @@
 apply (rule finite_deflation_approx)
 done
 
-lemma compact_approx: "compact (approx n\<cdot>x)"
+lemma compact_approx [simp]: "compact (approx n\<cdot>x)"
 apply (rule finite_deflation.compact)
 apply (rule finite_deflation_approx)
 done