fix to [arith]
authornipkow
Mon Feb 09 22:14:33 2009 +0100 (2009-02-09)
changeset 2985014d9891c917b
parent 29849 a2baf1b221be
child 29851 55ddff2ed906
fix to [arith]
src/HOL/Tools/lin_arith.ML
     1.1 --- a/src/HOL/Tools/lin_arith.ML	Mon Feb 09 18:50:10 2009 +0100
     1.2 +++ b/src/HOL/Tools/lin_arith.ML	Mon Feb 09 22:14:33 2009 +0100
     1.3 @@ -926,7 +926,8 @@
     1.4  val setup =
     1.5    init_arith_data #>
     1.6    Simplifier.map_ss (fn ss => ss addsimprocs [fast_nat_arith_simproc]
     1.7 -    addSolver (mk_solver' "lin_arith" Fast_Arith.cut_lin_arith_tac)) #>
     1.8 +    addSolver (mk_solver' "lin_arith"
     1.9 +      (add_arith_facts #> Fast_Arith.cut_lin_arith_tac))) #>
    1.10    Context.mapping
    1.11     (setup_options #>
    1.12      Method.add_methods