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