src/HOL/Library/Efficient_Nat.thy
changeset 28351 abfc66969d1f
parent 28346 b8390cd56b8f
child 28423 9fc3befd8191
     1.1 --- a/src/HOL/Library/Efficient_Nat.thy	Thu Sep 25 09:28:08 2008 +0200
     1.2 +++ b/src/HOL/Library/Efficient_Nat.thy	Thu Sep 25 10:17:22 2008 +0200
     1.3 @@ -70,8 +70,12 @@
     1.4    unfolding divmod_aux_def divmod_div_mod zdiv_int [symmetric] zmod_int [symmetric] by simp
     1.5  
     1.6  lemma eq_nat_code [code]:
     1.7 -  "n = m \<longleftrightarrow> (of_nat n \<Colon> int) = of_nat m"
     1.8 -  by simp
     1.9 +  "eq_class.eq n m \<longleftrightarrow> eq_class.eq (of_nat n \<Colon> int) (of_nat m)"
    1.10 +  by (simp add: eq)
    1.11 +
    1.12 +lemma eq_nat_refl [code nbe]:
    1.13 +  "eq_class.eq (n::nat) n \<longleftrightarrow> True"
    1.14 +  by (rule HOL.eq_refl)
    1.15  
    1.16  lemma less_eq_nat_code [code]:
    1.17    "n \<le> m \<longleftrightarrow> (of_nat n \<Colon> int) \<le> of_nat m"