# HG changeset patch
# User nipkow
# Date 1234214073 -3600
# Node ID 14d9891c917b15bbd025f4d40d6d7443bfa3a7e6
# Parent  a2baf1b221be07c99e7985e7c811e05d210b2341
fix to [arith]

diff -r a2baf1b221be -r 14d9891c917b src/HOL/Tools/lin_arith.ML
--- a/src/HOL/Tools/lin_arith.ML	Mon Feb 09 18:50:10 2009 +0100
+++ b/src/HOL/Tools/lin_arith.ML	Mon Feb 09 22:14:33 2009 +0100
@@ -926,7 +926,8 @@
 val setup =
   init_arith_data #>
   Simplifier.map_ss (fn ss => ss addsimprocs [fast_nat_arith_simproc]
-    addSolver (mk_solver' "lin_arith" Fast_Arith.cut_lin_arith_tac)) #>
+    addSolver (mk_solver' "lin_arith"
+      (add_arith_facts #> Fast_Arith.cut_lin_arith_tac))) #>
   Context.mapping
    (setup_options #>
     Method.add_methods