--- 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"