src/HOL/Tools/SMT/smt_normalize.ML
changeset 47207 9368aa814518
parent 47155 ade3fc826af3
child 50601 74da81de127f
     1.1 --- a/src/HOL/Tools/SMT/smt_normalize.ML	Thu Mar 29 14:47:31 2012 +0200
     1.2 +++ b/src/HOL/Tools/SMT/smt_normalize.ML	Fri Mar 30 08:10:28 2012 +0200
     1.3 @@ -467,7 +467,7 @@
     1.4      let
     1.5        val eq = SMT_Utils.mk_cequals lhs (Numeral.mk_cnumber @{ctyp int} i)
     1.6        val ss = HOL_ss
     1.7 -        addsimps [@{thm Nat_Numeral.int_numeral}]
     1.8 +        addsimps [@{thm Int.int_numeral}]
     1.9        fun tac _ = Simplifier.simp_tac (Simplifier.context ctxt ss) 1       
    1.10      in Goal.norm_result (Goal.prove_internal [] eq tac) end
    1.11