Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Old_Number_Theory/Factorization.thy
changeset 44890 22f665a2e91c
parent 41413 64cd30d6b0b8
child 57512 cc97b347b301 
--- a/src/HOL/Old_Number_Theory/Factorization.thy	Sun Sep 11 22:56:05 2011 +0200
+++ b/src/HOL/Old_Number_Theory/Factorization.thy	Mon Sep 12 07:55:43 2011 +0200
@@ -128,7 +128,7 @@
     "primel xs \<Longrightarrow> xs \<noteq> [] \<Longrightarrow> Suc 0 < prod xs"
   apply (induct xs)
    apply simp
-  apply (fastsimp simp: primel_def prime_def elim: one_less_mult)
+  apply (fastforce simp: primel_def prime_def elim: one_less_mult)
   done
 
 lemma primel_prod_gz: "primel xs ==> 0 < prod xs"
isabelle