src/HOL/ex/Sqrt.thy
changeset 63635 858a225ebb62
parent 63534 523b488b15c9
child 65417 fc41a5650fb1
--- a/src/HOL/ex/Sqrt.thy	Tue Aug 09 11:57:24 2016 +0200
+++ b/src/HOL/ex/Sqrt.thy	Tue Aug 09 12:30:31 2016 +0200
@@ -14,7 +14,7 @@
   assumes "prime (p::nat)"
   shows "sqrt p \<notin> \<rat>"
 proof
-  from \<open>prime p\<close> have p: "1 < p" by (simp add: is_prime_nat_iff)
+  from \<open>prime p\<close> have p: "1 < p" by (simp add: prime_nat_iff)
   assume "sqrt p \<in> \<rat>"
   then obtain m n :: nat where
       n: "n \<noteq> 0" and sqrt_rat: "\<bar>sqrt p\<bar> = m / n"
@@ -59,7 +59,7 @@
   assumes "prime (p::nat)"
   shows "sqrt p \<notin> \<rat>"
 proof
-  from \<open>prime p\<close> have p: "1 < p" by (simp add: is_prime_nat_iff)
+  from \<open>prime p\<close> have p: "1 < p" by (simp add: prime_nat_iff)
   assume "sqrt p \<in> \<rat>"
   then obtain m n :: nat where
       n: "n \<noteq> 0" and sqrt_rat: "\<bar>sqrt p\<bar> = m / n"