
diff -r dd58f13a8eb4 -r eb85850d3eb7 src/HOL/Hyperreal/NthRoot.thy
--- a/src/HOL/Hyperreal/NthRoot.thy	Fri Nov 17 02:19:55 2006 +0100
+++ b/src/HOL/Hyperreal/NthRoot.thy	Fri Nov 17 02:20:03 2006 +0100
@@ -11,11 +11,11 @@
 begin
 
 definition
-
-  root :: "[nat, real] \<Rightarrow> real"
+  root :: "[nat, real] \<Rightarrow> real" where
   "root n x = (THE u. (0 < x \<longrightarrow> 0 < u) \<and> (u ^ n = x))"
 
-  sqrt :: "real \<Rightarrow> real"
+definition
+  sqrt :: "real \<Rightarrow> real" where
   "sqrt x = root 2 x"
 
 




