changeset 21404 | eb85850d3eb7 |
parent 21287 | a713ae348e8a |
child 21454 | a1937c51ed88 |
--- a/src/HOL/Library/EfficientNat.thy Fri Nov 17 02:19:55 2006 +0100 +++ b/src/HOL/Library/EfficientNat.thy Fri Nov 17 02:20:03 2006 +0100 @@ -25,7 +25,7 @@ *} definition - nat_of_int :: "int \<Rightarrow> nat" + nat_of_int :: "int \<Rightarrow> nat" where "k \<ge> 0 \<Longrightarrow> nat_of_int k = nat k" lemma nat_of_int_int: