src/HOL/Library/Efficient_Nat.thy
changeset 38857 97775f3e8722
parent 38774 567b94f8bb6e
child 38968 e55deaa22fff
     1.1 --- a/src/HOL/Library/Efficient_Nat.thy	Fri Aug 27 15:36:02 2010 +0200
     1.2 +++ b/src/HOL/Library/Efficient_Nat.thy	Fri Aug 27 19:34:23 2010 +0200
     1.3 @@ -55,12 +55,12 @@
     1.4    by (simp add: prod_fun_def split_def pdivmod_def nat_div_distrib nat_mod_distrib divmod_nat_div_mod)
     1.5  
     1.6  lemma eq_nat_code [code]:
     1.7 -  "eq_class.eq n m \<longleftrightarrow> eq_class.eq (of_nat n \<Colon> int) (of_nat m)"
     1.8 -  by (simp add: eq)
     1.9 +  "HOL.equal n m \<longleftrightarrow> HOL.equal (of_nat n \<Colon> int) (of_nat m)"
    1.10 +  by (simp add: equal)
    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 +  "HOL.equal (n::nat) n \<longleftrightarrow> True"
    1.16 +  by (rule equal_refl)
    1.17  
    1.18  lemma less_eq_nat_code [code]:
    1.19    "n \<le> m \<longleftrightarrow> (of_nat n \<Colon> int) \<le> of_nat m"
    1.20 @@ -332,7 +332,7 @@
    1.21    (Haskell "Nat.Nat")
    1.22    (Scala "Nat.Nat")
    1.23  
    1.24 -code_instance nat :: eq
    1.25 +code_instance nat :: equal
    1.26    (Haskell -)
    1.27  
    1.28  text {*
    1.29 @@ -442,7 +442,7 @@
    1.30    (Scala infixl 8 "/%")
    1.31    (Eval "Integer.div'_mod")
    1.32  
    1.33 -code_const "eq_class.eq \<Colon> nat \<Rightarrow> nat \<Rightarrow> bool"
    1.34 +code_const "HOL.equal \<Colon> nat \<Rightarrow> nat \<Rightarrow> bool"
    1.35    (SML "!((_ : IntInf.int) = _)")
    1.36    (OCaml "Big'_int.eq'_big'_int")
    1.37    (Haskell infixl 4 "==")