src/HOL/Code_Numeral.thy
changeset 38857 97775f3e8722
parent 37958 9728342bcd56
child 39272 0b61951d2682
     1.1 --- a/src/HOL/Code_Numeral.thy	Fri Aug 27 15:36:02 2010 +0200
     1.2 +++ b/src/HOL/Code_Numeral.thy	Fri Aug 27 19:34:23 2010 +0200
     1.3 @@ -115,12 +115,12 @@
     1.4  lemmas [code del] = code_numeral.recs code_numeral.cases
     1.5  
     1.6  lemma [code]:
     1.7 -  "eq_class.eq k l \<longleftrightarrow> eq_class.eq (nat_of k) (nat_of l)"
     1.8 -  by (cases k, cases l) (simp add: eq)
     1.9 +  "HOL.equal k l \<longleftrightarrow> HOL.equal (nat_of k) (nat_of l)"
    1.10 +  by (cases k, cases l) (simp add: equal)
    1.11  
    1.12  lemma [code nbe]:
    1.13 -  "eq_class.eq (k::code_numeral) k \<longleftrightarrow> True"
    1.14 -  by (rule HOL.eq_refl)
    1.15 +  "HOL.equal (k::code_numeral) k \<longleftrightarrow> True"
    1.16 +  by (rule equal_refl)
    1.17  
    1.18  
    1.19  subsection {* Code numerals as datatype of ints *}
    1.20 @@ -301,7 +301,7 @@
    1.21    (Haskell "Integer")
    1.22    (Scala "BigInt")
    1.23  
    1.24 -code_instance code_numeral :: eq
    1.25 +code_instance code_numeral :: equal
    1.26    (Haskell -)
    1.27  
    1.28  setup {*
    1.29 @@ -342,7 +342,7 @@
    1.30    (Scala "!((k: BigInt) => (l: BigInt) =>/ if (l == 0)/ (BigInt(0), k) else/ (k.abs '/% l.abs))")
    1.31    (Eval "!(fn n => fn m =>/ if m = 0/ then (0, n) else/ (n div m, n mod m))")
    1.32  
    1.33 -code_const "eq_class.eq \<Colon> code_numeral \<Rightarrow> code_numeral \<Rightarrow> bool"
    1.34 +code_const "HOL.equal \<Colon> code_numeral \<Rightarrow> code_numeral \<Rightarrow> bool"
    1.35    (SML "!((_ : Int.int) = _)")
    1.36    (OCaml "Big'_int.eq'_big'_int")
    1.37    (Haskell infixl 4 "==")